在Perl中组合变量和正则表达式

Question

我有代码：

$TEMP =~ s/\#NAME\#/$customerName/g;

我使用Regex在$customername的值替换#NAME#的地方。 我要做的是将一个变量附加到NAME的末尾。

所以我想做类似的事情：

$TEMP =~ s/\#NAME . $appendValue\#/$customerName/g;

因此基本上是：

$TEMP =~ s/\#NAME_1\#/$customerName/g;

这项工作还是有适当的方法来处理呢？

---

测试用例：

• 您好＃NAME＃
• 这仅适用于＃NAME＃

Answer 1

该模式对变量进行插值，因此不需要串联运算符：

$TEMP =~ s/#NAME$appendValue#/$customerName/g;

但是，您可能需要保护变量中的特殊字符，因此请使用\\Q...\\E ：

$TEMP =~ s/#NAME\Q$appendValue\E#/$customerName/g;

#在正则表达式中不是特殊的，因此不需要反斜杠（但不会造成伤害）。