Perl 字符替换操作-用于两个文件的合并

Perl 字符替换操作-用于两个文件的合并
实现两个文件(aa和bb)的合并，产生新文件cc。要求cc的行由aa和bb的对应行相连接。
 
假设 aa的内容为：
123-
345-
567-
 
bb的内容为：
a
b
c
 
则cc的内容为：
123- a
345- b
567- c
 
 
这里涉及到字符替换，将bb每行的换行符用空格替换掉，代码如下：
 
open(aa,"a.tr");
open(bb,"b.tr");
open(cc,">c.tr");

while($line1=<aa>)
{
       $line1=~tr//n//t/;
       print cc "$line1";
       $line2=<bb>;
       print cc "$line2";
}
close(aa);
close(bb);
close(cc);
 
 
作者：迷信的兔子