Как я могу объединить соответствующие строки в двух файлах в Perl?

Question

file1.txt

hello
tom
well

file2.txt

world
jerry
done

Как объединить file1.txt с file2.txt; затем создайте новый файл - file3.txt

hello world
tom jerry
well done

спасибо за чтение и ответ.

Приложил заполненный код, основанный на ответе.

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

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

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

Answer 1

если Perl не обязателен, вы можете просто использовать paste на * nix. Если вы используете Windows, вы также можете использовать paste. Просто скачайте с GNU win32

$ paste file1 file2

еще, в Perl

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

Answer 2

Не думаю, что кто-то должен дать полный ответ на это.

Просто откройте оба файла, затем одновременно переберите оба файла и запишите новый файл.

Если вы не знаете, как читать и писать файлы в Perl, вот учебник:

http://perl.about.com/od/perltutorials/a/readwritefiles.htm