perl 转置矩阵

这里提供一个转置矩阵的perl脚本，R语言中的t()函数同样也能实现转置

use strict;

open A,"$ARGV[0]";

my %ha;
my $head=<A>;
chomp($head);
my @tag=split /\s+/,$head;

while(<A>){
        chomp;
        my @each=split;
        for(my $i=0;$i<@each;$i++){
                $ha{$tag[$i]}.=$each[$i]."\t";
        }
}

close A;

foreach my $k(@tag){
        print "$k\t$ha{$k}\n";
}