Question

档案1.txt

hello
tom
well

档案2.txt

world
jerry
done

How to merge 档案1.txt with 档案2.txt; then create a new file - file3.txt

hello world
tom jerry
well done

感谢你阅读和答复。

附上基于答案的完成守则。

#!/usr/bin/perl
use strict;
use warnings;

open(F1,"<","1.txt") or die "Cannot open file1:$!
"; 
open(F2,"<","2.txt") or die "Cannot open file2:$!
";
open (MYFILE,  >>3.txt );

while(<F1>){ 
  chomp; 
  chomp(my $f2=<F2>); 
  print MYFILE $_ . $f2 ."
"; 
}

Answer 1

如果有勿庸置疑,你只能使用*ix的<条码>。如您在Windows上,也可使用paste。仅从 rel=“nofollow noreferer”>GNU/<32>

$ paste file1 file2

页: 1

open(F1,"<","file1") or die "Cannot open file1:$!
";
open(F2,"<","file2") or die "Cannot open file2:$!
";
while(<F1>){
  chomp;
  chomp($f2=<F2>);
  print $_ . $f2 ."
";
}

Answer 2

我不认为任何人都应对此作出充分回答。

只是公开两份档案,然后同时通过,并写到新的档案中。

如果你不知道如何读写档案,那就是一个辅导:

rel=“nofollow noreferer” http://perl.about.com/od/perltutorials/a/readwritefiles.htm

友情链接