open IN ,"a.txt" or die $!; ##读入文件
open OUT ,">b.txt" or die $!; ##输出文件
while (<IN>) {
print OUT $_;
if ($_ =~ /add/){print OUT "xxx\n"
}
}
[root@june2 perl]# cat a.txt
add
1
2
3
4
add
5
6
add
8
9
aaaa
bbbbb
[root@june2 perl]# perl a1.pl
[root@june2 perl]# cat b.txt
add
xxx
1
2
3
4
add
xxx
5
6
add
xxx
8
9
aaaa
bbbbb
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。
