Perl正則表達式查找和替換

Question

我正在嘗試刪除4k +網頁上的一些垃圾js代碼。 網頁上還包含其他js，因此我只需要使用名為clickIE的特定功能來擺脫JS。

在介紹正則表達式之前，我需要使用這種襯板。

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

我的regex在http://www.gskinner.com/RegExr/上測試時可以正常工作，但是在命令行上失敗...（失敗意味着... regex不匹配任何內容）

Answer 1

為了使正則表達式正常工作，需要立即將整個文件插入。

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

Answer 2

如@Mark所述，匹配項應為非貪婪的。 這似乎有效...

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