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

Question

I have the code:

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

Where I am replacing #NAME# with the value in $customername using Regex. What I want to do is append a variable onto the end of NAME .

So I want to do something like:

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

so it will essentially be:

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

Would this work or is there a proper way to handle this?

---

Test Cases:

• Hello #NAME#
• This is only intended for #NAME#

Answer 1

The pattern interpolates variables, so no concatenation operator is needed:

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

You might need to protect special characters in the variable, though, so use \\Q...\\E :

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

# is not special in a regex, so no backslash is needed (but it doesn't hurt).