Perl 在指定字符行下追加

发布时间：2020-12-15 23:46:40 所属栏目：大数据来源：网络整理

导读：open IN,"a.txt" or die $!; ##读入文件open OUT,"b.txt" or die $!; ##输出文件while (IN) {print OUT $_;if ($_ =~ /add/){print OUT "xxxn"}} [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? [r

open IN,"a.txt" or die $!; ##读入文件
open OUT,">b.txt" or die $!; ##输出文件

while (<IN>) {

print OUT $_;
if ($_ =~ /add/){print OUT "xxxn"
}
}

[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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!