如何在不触及未更改的文件的情况下替换Perl中现有文件中的字符串

前端之家收集整理的这篇文章主要介绍了如何在不触及未更改的文件的情况下替换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).

猜你在找的Perl相关文章