如何将不同文件的不同行内容连接成一行

chuanwj

现在有2个文件：
1.txt的内容为
abcad
efasf
aef
dkjd
dfak
……
……

2.txt的内容为
123
456
789
ewe
rerir
……

如何产生文件3.txt——将文件1.txt与2.txt的对应行内容连接成为一行
如3.txt的结果为：
From：abcad   To： 123
From：efasf   To： 456
From：aef     To：789
From：dkjd    To：ewe
From：dfak    To：rerir
……
……

cdtits

1. open $fa, '<', '1.txt' or die $!;
   
2. open $fb, '<', '2.txt' or die $!;
   
3. while (1) {
   
4.         chomp($l1 = <$fa>);
   
5.         chomp($l2 = <$fb>);
   
6.         last if !defined($l1) && !defined($l2);
   
7.         print "From: $l1\tTo: $l2\n";
   
8. }
   
9. close $fb;
   
10. close $fa;

复制代码

yizhengming

perl  -ne  'chomp; if($ARGV eq "1.txt"){push @arr, "From : $_";} else{$arr[$i] =~ s/($arr[$i++])/$1\t To : $_\n/;} END{print @arr}' 1.txt 2.txt

xiyoulaoyuanjia

1. paste 1 2 | awk '{print "FROM:" $1 " TO:" $2 }'

复制代码