如何在Perl中打印匹配的行和接下来的三行？

概述我需要搜索一个模式,然后将该行以及接下来的3行写入文件(FILE).这是一个正确的方法吗？谢谢. print FILE if /^abc/;$n=3 if /^abc/;print FILE if ($n-- > 0); 我喜欢.. *** 作符： perl -ne 'print if (/abc/ and $n=3) .. not $n--' 但是你没有描述如果abc模式在以下三行中重复会发生什么. @H_403_1@ 我需要搜索一个模式,然后将该行以及接下来的3行写入文件(file).这是一个正确的方法吗？谢谢.

print file if /^abc/;$n=3 if /^abc/;print file if ($n-- > 0);

解决方法 我喜欢.. *** 作符：

perl -ne 'print if (/abc/ and $n=3) .. not $n--'

但是你没有描述如果abc模式在以下三行中重复会发生什么.如果你想重启计数器,如果用双重打印修复一个小错误你的方法是正确的.

perl -ne'$n=4 if/abc/;print if$n-->0'

总结

以上是内存溢出为你收集整理的如何在Perl中打印匹配的行和接下来的三行？全部内容，希望文章能够帮你解决如何在Perl中打印匹配的行和接下来的三行？所遇到的程序开发问题。

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