Perl替代以打印与regex不匹配的所有内容[已关闭]

amrnrhlw  于 2022-11-15  发布在  Perl
关注(0)|答案(1)|浏览(106)

已关闭。此问题需要details or clarity。当前不接受答案。
**想要改进此问题吗?**通过editing this post添加详细信息并阐明问题。

6个月前关闭。
Improve this question
我正在尝试打印所有与我的正则表达式不匹配的内容。我知道正则表达式很好,但不确定我是否正确理解语法以正确执行它。我得到的打印结果与我使用regex101得到的完全不同。任何想法都将是有帮助的。尝试打印剩余的上下文不匹配,并最终输出到另一个文件,但希望确保我也理解注解。这是我所拥有的...

perl -ne "print s/((0\.0\.0\.0)|(127\.0\.0\.1)|(\|\|)|(#.*)|(\^)|(\h))/m/gi;" a.txt
x4shl7ld

x4shl7ld1#

这很管用。

perl -pe "s/((0\.0\.0\.0)|(127\.0\.0\.1)|(\|\|)|(#.*)|(\^)|(\h))//gi;" a.txt

相关问题