How can I concatenate corresponding lines in two files in Perl?
Posted
by Nano HE
on Stack Overflow
See other posts from Stack Overflow
or by Nano HE
Published on 2010-04-15T13:48:41Z
Indexed on
2010/04/16
4:13 UTC
Read the original article
Hit count: 340
file1.txt
hello
tom
well
file2.txt
world
jerry
done
How to merge file1.txt with file2.txt; then create a new file - file3.txt
hello world
tom jerry
well done
thank you for reading and reply.
Attached the completed code.
#!/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";
}
© Stack Overflow or respective owner