Perl: Bareword found where operator expected at

Question

I am trying to use perl to replace a string like so:

perl -pe "s/FlDigVal/$DIGN/" Header.xml > $DDIRP/$FNAME.xml

If DIGN=+q4T/h/B8Saf0im3LtBevNvMPsd1PRG5Tz+Iq/uwjXA= i get the following syntax error:

Having no space between pattern and following word is deprecated at -e line 1.
Bareword found where operator expected at -e line 1, near "s/FlDigVal/+q4T/h"
Having no space between pattern and following word is deprecated at -e line 1.
syntax error at -e line 1, near "s/FlDigVal/+q4T/h"
Execution of -e aborted due to compilation errors.

I guess this is related to /hbeing in variable DIGN. Is there a way to escape those reserved words?

Answer 1

Don't use shell variables, which are just non-hygienic macros. Export the variable to Perl's environment:

DIGN=$DIGN perl -pe 's/FlDigVal/$ENV{DIGN}/'

Note the single quotes: we don't want the shell to change the Perl commands.

or pass the value as an argument:

perl -pe 'BEGIN { $replace = shift } s/FlDigVal/$replace/' "$DIGN" Header.xml

Nevertheless, you seem to be editing an XML document with regular expressions. It's a painful way, there are libraries like XML::LibXML that handle XML correctly. E.g. what would happen if DIGN contained & or <?