请教如何将几个文件按行数合并

saicom

file1:
line1 of file1
line2 of file1

file2:
line1 of file2
line2 of file2

file3:
line1 of file3
line2 of file3

合并成一个文件：
line1 of file1
line1 of file2
line1 of file3
line2 of file1
line2 of file2
line2 of file3
line3 of file1
line3 of file2
line3 of file3

另外就是3个文件都是上百m的，请问如何实现上面的操作？谢谢

[ 本帖最后由 saicom 于 2007-5-10 17:26 编辑 ]

thevoice

不看书的吗？最基本的呀

1. 
   
2. #! /usr/perl/bin
   
3. 
   
4. use warnings;
   
5. use strict;
   
6. 
   
7. open (NF,">","new.txt");
   
8. #@ARGV = qw/1.txt 2.txt/;
   
9. while(<>){
   
10.         print NF $_;
    
11. }
    
12. close(NF);
    

复制代码

saicom

楼上的，首先很感谢你回答我的帖子
不过希望你能看清楚我的帖子再回贴
你写的程序用cat一个命令就完成了

vio

sort file1 file2 file3??

deadlylight

伪代码

1. 
   
2. open f1
   
3. open f2
   
4. open f3
   
5. open output
   
6. while
   
7. {
   
8. s=read(f1)
   
9. write(s,output)
   
10. s=read(f2)
    
11. write(s,output)
    
12. s=read(f3)
    
13. write(s,output)
    
14. }
    

复制代码

saicom

楼上的意思大概了解
不过你的代码不能直接用
自己改了没成功
能给个实验成功的代码吗？

wrongdna

可以试一下
paste file1 file2 file3

uppet

楼上的是正解。。。
如果在在win32下面，也可以自己写一个简单的paste

1. 
   
2. #perl
   
3. 
   
4. my @file_hanldes;
   
5. 
   
6. print STDERR "composing @ARGV\n into stdout";
   
7. 
   
8. map {
   
9.     open $file_hanldes[$_],"<",$ARGV[$_] or die "can't open $ARGV[$_]\n";
   
10. } 0..@ARGV; #把文件句柄放到数组中去
    
11. 
    
12. @sweeper = (@file_hanldes);
    
13. while(@file_hanldes > 0){ #只要还有文件就继续打印
    
14.     map { my $line =  <$_>; print $line; } @file_hanldes;
    
15.     @file_hanldes = grep {not eof $_;} @file_hanldes; #文件在退出时由perl关闭
    
16. }
    
17. 
    

复制代码