逃离变量内的美元符号

Question

我有一行简单的Perl

s/$var/'string'/g

问题是$ var包含类似jkdlsf$lkjl的字符串。请注意中间的美元符号。似乎因为这个美元符号，替换不起作用。当它在变量中时如何逃避？

Answer 1

使用\Q引用：

s/\Q$var/'string'/g

Answer 2

使用quotemeta或\Q和\E嵌入式正则表达式构造：

s/\Q$var\E/'string'/g;

# or

my $var = quotemeta 'jkdlsf$lkjl';
s/$var/'string'/g;

Answer 3

您可以使用反斜杠转义它们：$var=~s/\$/\\\$/g