perl 文件按列合并

shangat

问题描述如下：

已知一目录下有n （n >= 3 ) 个文件，其文件内容形如：
   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
============
即每个文件中行列的数目不定，现欲得到一新文件 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
=================
请高人给个思路，谢谢！

iamlimeng

前不久才有人问这个问题，需求完全一样，请先搜一搜！

iamlimeng

我找不到了，给你上一次同样贴的示例代码，你根据你的情况修改一下：

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>;

复制代码