perl正则表达式查找和替换

Question

我正在尝试删除4k+网页上的一些垃圾js代码。网页上还有其他的js，所以我只需要用一个名为clickIE的特殊函数去掉JS。

在我引入正则表达式之前，我一直使用这个线性函数...

perl -p -i -e 's|<script(.*)>.*clickie.*?<\/script>|<\!--REMOVED-JS-CODE-->|gixsm' ./*.html

我的正则表达式在http://www.gskinner.com/RegExr/测试时工作正常，但在命令行上失败...(失败意味着...正则表达式不匹配任何内容)

Answer 1

要让正则表达式工作，需要一次插入整个文件。

$ perl -0777 -pi -e 's/your/regex/gix' ./*.html

Answer 2

正如@Mark所指出的，匹配应该是非贪婪的。这似乎起作用了..。

perl -i -p -e 's|<script.*?>.*?clickie.*?</script>|<!-- removed -->|gism'