Perl one liner用于在变量文件中查找和替换

Question

我正在尝试找到<li ><a href='xxxxxxxx'>some_link</a></li>并将其替换为<li ><a href='xxxxxxxx'>some_link</a></li> 。 要做到这一点，我正在运行下面的命令，但它正在识别$作为正则表达式的一部分。

perl -p -i -e 's/<li ><a href=.*$SOMEVAR.*li>\\n//g' file.html

我试过以下的事情，
${SOMEVAR}
\\$SOMEVAR
FIND="<li ><a href=.*$SOMEVAR.*li>"; perl -p -i -e 's/$FIND//g' file.html

有任何想法吗？ 谢谢。

Answer 1

Bash只用双引号进行变量替换。

这应该工作：

perl -p -i -e "s/<li ><a href=.*?$SOMEVAR.*?li>\n//g" file.html

编辑实际上，这可能与\\n中的\\n有点奇怪。 另一种方法是利用Bash的字符串连接。 这应该工作：

perl -p -i -e 's/<li ><a href=.*?'$SOMEVAR'.*?li>\n//g' file.html

编辑2：我只是仔细看看你想要做什么，这有点危险。 你正在使用.*的贪婪形式，它可以匹配比你想要的更多的文本。 使用.*? 代替。 我更新了上面的正则表达式。

Answer 2

如果“SOMEVAR”确实是一个外部变量，您可以将其导出到环境并引用它：

SOMEVAR=whatever perl -p -i -e 's/<li ><a href=.*$ENV{SOMEVAR}.*li>\n//g' file.html