挑戰(zhàn) 文本文件行列轉(zhuǎn)置如何實(shí)現(xiàn)

xinganling

由逗號(hào)分隔的不定長(zhǎng)度的文本文件, 現(xiàn)要實(shí)現(xiàn)行列轉(zhuǎn)置, 即由
1,2,3,4,5,6,
7,8,9,
10,11,12,13,
轉(zhuǎn)置為
1,7,10,
2,8,11,
3,9,12,
4,  ,13,
5,  ,    ,
6,  ,    ,
在下學(xué)習(xí)PERL尚未入門(mén), 請(qǐng)各位高手指點(diǎn)迷津. 最好把實(shí)現(xiàn)的主要部分腳本貼出來(lái), 不勝感激!!

DQP

這是作業(yè)么？ 下次自己寫(xiě)吧

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. 
    

復(fù)制代碼

xinganling

謝謝DQP!  好用, 在下正在研讀中, 有不明處再請(qǐng)教, 再次感謝!!!

MMMIX

原帖由 DQP 于 2009-3-9 09:32 發(fā)表
這是作業(yè)么？  

顯然的。

sunkez

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

這個(gè)地方用的真是好呀， 第一個(gè)逗號(hào)是什么意思呢，從語(yǔ)法能猜出來(lái)，但是否解釋下

DQP

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

這個(gè)地方用的真是好呀， 第一個(gè)逗號(hào)是什么意思呢，從語(yǔ)法能猜出來(lái)，但是否解釋下

是兩個(gè)參數(shù)間的分隔符啊
呵呵 逗號(hào)多了容易眼花 :p

qianyemlf

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

104359176

在 EXCEL 里，復(fù)制，選擇性粘貼，轉(zhuǎn)置。

gaorongchao

在R里,t(data)