tabdata/td2kvpairs

   1 #!/usr/bin/env perl
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 td2kvpairs - Transform tabular data into key-value pairs
   8
   9 =head1 OPTIONS
  10
  11 =over 4
  12
  13 =item -r, --prefix-field I<NAME>
  14
  15 Put this field's content before the list of key-value pairs.
  16 Default is B<_REST>.
  17 Prefix and the key-value pairs are separated by a space char,
  18 if there is any prefix.
  19
  20 =back
  21
  22 =head1 SEE ALSO
  23
  24 td2mrkv(1), kvpairs2td(1)
  25
  26 =cut
  27
  28 $OptPrefixField = "_REST";
  29 %OptionDefs = (
  30         'r|prefix-field|prefixfield=s' => \$OptPrefixField,
  31 );
  32
  33 use Data::Dumper;
  34 no if ($] >= 5.018), 'warnings' => 'experimental::smartmatch';
  35 do '/usr/lib/tool/perl5/tabdata/common.pl' or die "$@";
  36
  37 process_header(scalar <STDIN>);
  38
  39 while(not eof STDIN)
  40 {
  41         my @input = read_record(\*STDIN);
  42         my $prefix = '';
  43         if(exists $Header{$OptPrefixField})
  44         {
  45                 $prefix = $input[$Header{$OptPrefixField}];
  46                 $prefix =~ s/(\S)$/$1 /;
  47         }
  48         print $prefix . join(' ', map { sprintf "%s=%s", kvpair_escape($_), kvpair_escape($input[$Header{$_}]) } grep {$_ ne $OptPrefixField} @Header) . "\n";
  49 }