需求:
实现两个文件(aa和bb)的合并,产生新文件cc。
要求cc的行由aa和bb的对应行相连接。
假设 aa的内容为:
123-
345-
567-
bb的内容为:
a
b
c
则替换后cc的内容为:
123- a
345- b
567- c
这里涉及到字符替换,将bb每行的换行符用空格替换掉:
#!/usr/bin/perl
open(aa,"a.tr");
open(bb,"b.tr");
open(cc,">c.tr");
while($line1=)
{
$line1=~tr/n/t/;
print cc "$line1";
$line2=;
print cc "$line2";
}
close(aa);
close(bb);
close(cc);