tabdata/td-pivot

   1 #!/usr/bin/env perl
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 td-pivot - Switch columns for rows in tabular data
   8
   9 =head1 SYNOPSIS
  10
  11 td-pivot
  12
  13 =head1 CAVEAT
  14
  15 Must read and buffer the whole STDIN before output any data,
  16 so inpractical on large data.
  17
  18 =cut
  19
  20 no if ($] >= 5.018), 'warnings' => 'experimental::smartmatch';
  21 do '/usr/lib/tool/perl5/tabdata/common.pl' or die "$@";
  22
  23
  24 @data = ();
  25 $max_col = 0;
  26
  27 while(not eof STDIN)
  28 {
  29         my @row = read_record(\*STDIN);
  30
  31         my $cols = scalar @row - 1;
  32         $max_col = $cols if $cols > $max_col;
  33         push @data, [@row];
  34 }
  35
  36 for my $cnum (0..$max_col)
  37 {
  38         print join $FS, map {$_->[$cnum]} @data;
  39         print $RS;
  40 }