挑战 文本文件行列转置如何实现

xinganling

由逗号分隔的不定长度的文本文件, 现要实现行列转置, 即由
1,2,3,4,5,6,
7,8,9,
10,11,12,13,
转置为
1,7,10,
2,8,11,
3,9,12,
4,  ,13,
5,  ,    ,
6,  ,    ,
在下学习PERL尚未入门, 请各位高手指点迷津. 最好把实现的主要部分脚本贴出来, 不胜感激!!

DQP

这是作业么？ 下次自己写吧

1. 
   
2. my @matrix;
   
3. my $max_len = 0;
   
4. while(<DATA>){
   
5.   chomp;
   
6.   s/,$//g;
   
7.   my @fields = split /,/, $_;
   
8.   my $len = @fields;
   
9.   $max_len = $max_len > $len ? $max_len : $len;
   
10.   push @matrix, [@fields];
    
11. }
    
12. for my $col (0..$max_len - 1){
    
13.   for my $line (@matrix){
    
14.     print $line->[$col] || ' ', ',';
    
15.   }
    
16.   print "\n";
    
17. }
    
18. __DATA__
    
19. 1,2,3,4,5,6,
    
20. 7,8,9,
    
21. 10,11,12,13,
    
22. 
    

复制代码

xinganling

谢谢DQP!  好用, 在下正在研读中, 有不明处再请教, 再次感谢!!!

MMMIX

原帖由 DQP 于 2009-3-9 09:32 发表
这是作业么？  

显然的。

sunkez

print $line->[$col] || ' ', ',';

这个地方用的真是好呀， 第一个逗号是什么意思呢，从语法能猜出来，但是否解释下

DQP

原帖由 sunkez 于 2009-3-9 23:04 发表
print $line->[$col] || ' ', ',';

这个地方用的真是好呀， 第一个逗号是什么意思呢，从语法能猜出来，但是否解释下

是两个参数间的分隔符啊
呵呵 逗号多了容易眼花 :p

qianyemlf

$max_len = $max_len > $len ? $max_len : $len;
这一段是什么意思

104359176

在 EXCEL 里，复制，选择性粘贴，转置。

gaorongchao

在R里,t(data)