码迷,mamicode.com
首页 > 其他好文 > 详细

perl 转置矩阵

时间:2019-11-18 18:40:50      阅读:160      评论:0      收藏:0      [点我收藏+]

标签:spl   perl   int   函数   open   for   语言   实现转置   print   

这里提供一个转置矩阵的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]."\t";
15         }
16 }
17 
18 close A;
19 
20 foreach my $k(@tag){
21         print "$k\t$ha{$k}\n";
22 }

 

 

 

perl 转置矩阵

标签:spl   perl   int   函数   open   for   语言   实现转置   print   

原文地址:https://www.cnblogs.com/mmtinfo/p/11883511.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!