perl进行行列转置

nanshanjin

这里有个文件，内容如下
name1  0：abcd|0：efhg|....
name2  0：abcd|0：efhg|....
name3  0：abcd|0：efhg|....
...
提取0：和|之间的内容并进行转置得到
name1   name2   name3   ...
abcd      abcd      abcd
efgh      efgh       efgh
...
请问如何实现      

zhouzhen1

https://metacpan.org/pod/Array::Transpose

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData = ();
   
6. while (<DATA>){
   
7.         my @aT = split;
   
8.         push (@{$aData[$_]}, $aT[$_]) for 0 .. $#aT;
   
9. }
   
10. 
    
11. print join ("\t", @$_), "\n" for @aData;
    
12. 
    
13. __DATA__
    
14. a1        b1        c1
    
15. a2        b2        c2
    
16. a3        b3        c3
    

复制代码