regex - 如何使用 perl regex 在字符串中转义美元符号 ($)

Question

我正在尝试使用 perl regex 转义给定字符串中的几个特殊字符。它适用于除美元符号外的所有字符。我尝试了以下方法:

my %special_characters;
$special_characters{"_"} = "\\_";
$special_characters{"$"} = "\\$";
$special_characters{"{"} = "\\{";
$special_characters{"}"} = "\\}";
$special_characters{"#"} = "\\#";
$special_characters{"%"} = "\\%";
$special_characters{"&"} = "\\&";

my $string = '$foobar';
foreach my $char (keys %special_characters) {
  $string =~ s/$char/$special_characters{$char}/g;
}
print $string;

Answer 1

尝试这个:

my %special_characters;
$special_characters{"_"} = "\\_";
$special_characters{"\\\$"} = "\\\$";
$special_characters{"{"} = "\\{";
$special_characters{"}"} = "\\}";
$special_characters{"#"} = "\\#";
$special_characters{"%"} = "\\%";
$special_characters{"&"} = "\\&";

看起来很奇怪，对吧？您的正则表达式需要如下所示:

s/\$/\$/g

在正则表达式的第一部分，“$”需要转义，因为它是一个特殊的正则表达式字符，表示字符串的结尾。

正则表达式的第二部分被视为“普通”字符串，其中“$”没有特殊含义。因此反斜杠是一个真正的反斜杠，而在第一部分中它用于转义美元符号。

此外，在变量定义中，您需要对反斜杠和美元符号进行转义，因为它们在双引号字符串中都有特殊含义。