tabdata/td2mrkv

   1 #!/usr/bin/env perl
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 td2mrkv - Transform tabular data into multi-record key-value (MRKV) format.
   8
   9 =head1 OPTIONS
  10
  11 =over 4
  12
  13 =item -s, --separator I<STR>
  14
  15 String to separate field name from content.
  16 Default is TAB (C<\t>).
  17
  18 =back
  19
  20 =head1 EXAMPLE
  21
  22 getent passwd | tr : "\t" | td-add-headers USER PW UID GID GECOS HOME SHELL | td-select +ALL -PW | td2mrkv
  23
  24 =head1 SEE ALSO
  25
  26 mrkv2td(1), td2html(1)
  27
  28 =cut
  29
  30 $OptSeparator = "\t";
  31 %OptionDefs = (
  32         's|separator=s' => \$OptSeparator,
  33 );
  34
  35 no if ($] >= 5.018), 'warnings' => 'experimental::smartmatch';
  36 do '/usr/lib/tool/perl5/tabdata/common.pl' or die "$@";
  37
  38
  39 process_header(scalar <STDIN>);
  40
  41
  42 while(not eof STDIN)
  43 {
  44         my @Field = read_record(\*STDIN);
  45
  46         for my $idx (0..$#Header)
  47         {
  48                 printf "%s%s%s\n", $Header[$idx], $OptSeparator, $Field[$idx];
  49         }
  50
  51         print $RS;
  52 }