Perl 在指定字符行下追加

概述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 a

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 总结

以上是内存溢出为你收集整理的Perl 在指定字符行下追加全部内容，希望文章能够帮你解决Perl 在指定字符行下追加所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。