前端之家收集整理的这篇文章主要介绍了
如何在不触及未更改的文件的情况下替换Perl中现有文件中的字符串，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
运用
perl -pi -e 's/pattern/replacement/g' $(find src -type f)
很好,除了一件事：所有文件都被覆盖,即使没有任何匹配.这并不好,因为我经常在Emacs或Eclipse中打开它们,然后问我无聊的问题.有一种简单的方法可以防止触摸未更改的文件(在查找中使用grep的东西太多了,特别是对于复杂的模式).
打开
文件后的第一件事是取消
链接,这意味着你不能对你不想
修改的
文件使用-i.
find src -type f -exec grep -Pl 'pattern' {} + |
xargs perl -i -pe's/pattern/replacement/g'
当然,grep已经可以执行递归搜索,因此除非您需要使用find来过滤结果,否则您可以使用
grep -Plr 'pattern' src |
xargs perl -i -pe's/pattern/replacement/g'
注意：cmd | xargs perl …可以处理比perl更多的文件… $(cmd).
原文链接：https://www.f2er.com/Perl/171920.html
