用perl打印多行文字开始和结束于特定的正则表达式

使用perl,在这里,我们grep fetchmail的man页面来查找以'-k |开头的段落--keep“并在以'-K |开头的段落之前结束--nokeep”
.

0

linux命令:man fetchmail | perl -ne 'undef $/; print $1 if m/^.*?(-k \| --keep.*)-K \| --nokeep.*$/smg' --nokeep.*$/smg' \| --keep.*)-K \| m/^.*?(-k if $1 print $/; 'undef -ne perl | fetchmail man man fetchmail | perl -ne 'undef $/; print $1 if m/^.*?(-k \| --keep.*)-K \| --nokeep.*$/smg'rootopen.com
linux命令:man fetchmail | perl -ne 'undef $/; print $1 if m/^.*?(-k \| --keep.*)-K \| --nokeep.*$/smg' --nokeep.*$/smg' \| --keep.*)-K \| m/^.*?(-k if $1 print $/; 'undef -ne perl | fetchmail man man fetchmail | perl -ne 'undef $/; print $1 if m/^.*?(-k \| --keep.*)-K \| --nokeep.*$/smg'rootopen.com
amob 2018-02-21 18:35:48
输出

评论

相关推荐
共收录0条命令行
这里是记录和分享命令行的地方, 所有命令行都可以进行评论、提交替代方案.

热门文章