latex : 行と列の入れ替え（最低限の機能）

matrix_transposing.pl

use strict;

my( @row );
while(<STDIN>){
        chomp;
        s/\s*\\\\\s*//g;
        s/\\hline//g;
        push @row, [split /\s*&\s*/];
}
for( my $i = 0; $i <= $#{@{$row[0]}}; $i++ ){
        for( my $j = 0; $j <= $#row; $j++ ){
                $row[$j][$i] .= " & " if $j != $#row; 
                print $row[$j][$i];
        }
        print " \\\\ \\hline\n";
}