在终端OSX中找到perl中的反斜杠和引号替换

Question

我试图找到行"<ablablablaLoadoftext/a>"，其中双引号是文本的一部分，然后将其替换为空（即删除它）

find /MyPathToFile/AlDis.txt -type f -exec perl -p -i -e "s/\<a.*a\>\t/''/g" {} \

我怀疑这个错误与我如何处理双引号和单引号有关，但我试过反斜杠并没有喜悦 然而没有任何反应（但没有错误）。有人可以帮忙吗？

Answer 1

您必须在正则表达式中包含双引号，并且不需要在替换部分中添加''。

find /MyPathToFile/AlDis.txt -type f -exec perl -i -pe 's/"<a[^>]*\/a>"//g' {} \;

如果您想使用单个文件，那么您不需要在find命令中使用perl命令。

perl -i -pe 's/"<a[^>]*\/a>"//g' /MyPathToFile/AlDis.txt