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

发布时间：2020-12-16 06:10:00 所属栏目：大数据来源：网络整理

导读：我需要搜索一个模式,然后将该行以及接下来的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--' 但是你没有描述如

我需要搜索一个模式,然后将该行以及接下来的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'

（编辑：李大同）

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