Perl 字符替换操作-用于两个文件的合并
时间：2006-06-12 来源：迷信的兔子
实现两个文件(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); 作者：迷信的兔子 http://rabbit.cublog.cn/
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); 作者：迷信的兔子 http://rabbit.cublog.cn/
相关阅读 更多 +
