perl 转置矩阵
Posted mmtinfo
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了perl 转置矩阵相关的知识,希望对你有一定的参考价值。
这里提供一个转置矩阵的perl脚本,R语言中的t()函数同样也能实现转置
1 use strict; 2 3 open A,"$ARGV[0]"; 4 5 my %ha; 6 my $head=<A>; 7 chomp($head); 8 my @tag=split /s+/,$head; 9 10 while(<A>){ 11 chomp; 12 my @each=split; 13 for(my $i=0;$i<@each;$i++){ 14 $ha{$tag[$i]}.=$each[$i]." "; 15 } 16 } 17 18 close A; 19 20 foreach my $k(@tag){ 21 print "$k $ha{$k} "; 22 }
以上是关于perl 转置矩阵的主要内容,如果未能解决你的问题,请参考以下文章