perl 文件按列合并

shangat

問題描述如下：

已知一目錄下有n （n >= 3 ) 個(gè)文件，其文件內(nèi)容形如：
   a.txt  

1    23  56
15  48  5
12  4
65  56
       45
============
   b.txt

23
56
0
============
   c.txt

0   23
12 236
1   45
47
============
即每個(gè)文件中行列的數(shù)目不定，現(xiàn)欲得到一新文件 new.txt,形如：
   new.txt

1    23  56  23  0    23
15  48  5    56  12  236
12  4          0    1    45
65  56              47
       45
=================
請高人給個(gè)思路，謝謝！

iamlimeng

前不久才有人問這個(gè)問題，需求完全一樣，請先搜一搜！

iamlimeng

我找不到了，給你上一次同樣貼的示例代碼，你根據(jù)你的情況修改一下：

1. #!/usr/bin/perl
   
2. 
   
3. open(T,"a.txt");
   
4. my @content1 = <T>;
   
5. chomp(@content1);
   
6. close T;
   
7. 
   
8. open(TT,"b.txt");
   
9. my @content2 = <TT>;
   
10. chomp(@content2);
    
11. close TT;
    
12. 
    
13. my $len1 = scalar(@content1);
    
14. my $len2 = scalar(@content2);
    
15. my $num = $len1 > $len2 ? $len1-1:$len2-1;
    
16. open(T1,">c.txt");
    
17. for (0..$num) {
    
18.                 print T1 "$content1[$_]$content2[$_]\n";
    
19. }
    
20. close T1;
    
21. 
    
22. <STDIN>;

復(fù)制代碼