Perl: Bareword找到操作符预期在

Question

我试图使用perl替换如下所示的字符串：

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

如果DIGN=+q4T/h/B8Saf0im3LtBevNvMPsd1PRG5Tz+Iq/uwjXA=出现以下语法错误：

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.

我想这与/h处于变量DIGN有关。有什么办法可以避开那些保留的词吗？

Answer 1

不要使用shell变量，这些变量只是不卫生的宏。将变量导出到Perl的环境中：

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

注意单引号:我们不希望shell更改Perl命令。

或将值作为参数传递：

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

不过，您似乎在用正则表达式编辑XML文档。这是一种痛苦的方法，有些像XML::LibXML这样的库可以正确地处理XML。如果DIGN包含&或<，会发生什么？

Answer 2

问题不在于保留的单词，而在于/。

如果DIGN包含+q4T/h/B8Saf0im3LtBevNvMPsd1PRG5Tz+Iq/uwjXA=，则命令将以下代码传递给+q4T/h/B8Saf0im3LtBevNvMPsd1PRG5Tz+Iq/uwjXA=：

s/FlDigVal/+q4T/h/B8Saf0im3LtBevNvMPsd1PRG5Tz+Iq/uwjXA=/

这里，s/FlDigVal/+q4T/将解析为一个替换命令，但其余的都是垃圾。

解决方案是不要让shell将变量插入到代码中。相反，您可以通过环境传递字符串：

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

(如果DIGN已经导出，则不需要DIGN="$DIGN"部件。)

在这里，我们使用单引号(没有shell内插)，让perl从环境中获取一个值。