Question

我对这个班轮有问题：

perl -pe 's/FINDME/`cat rep.txt`/ge' in.txt

如果我像这样使用它，它可以工作，但我也想在替换内容之前和之后添加一些文本：

perl -pe 's/FINDME/SOMETHING1`cat rep.txt`SOMETHING2/ge' in.txt

我收到错误：

syntax error at -e line 1, near "SOMETHING1`cat rep.txt`"

不应该将命令的输出视为字符串吗？

从概念上讲，我也因为我无法替换为角色＆lt;

的事实而感到困惑。

perl -pe 's/SOMETHING/<SOMETHINGELSE/ge' in.txt
Unterminated <> operator at -e line 1.

逃离＆lt; （\＆lt;）给了我同样的错误。

Answer 1

问题是你正在使用e修饰符来表示regexp，这意味着将替换字符串作为代码片段进行eval {}（或换句话说，执行），但是你将它视为一个外壳更换。 e修饰符需要CODE，而不是TEXT。

因此，正常（全局）替换将使用：

s/FINDME/REPLACE/g

......这很好。但是，当您使用e标志时，替换将作为代码运行。因此：

s/FINDME/`cat foo.txt`/ge;

......等同于......

$replace = `cat foo.txt`;
s/FINDME/$replace/g;

所以，你可以看到这个：

s/FINDME/SOMETHING`cat foo.txt`/ge;

......等同于......

$replace = SOMETHING`cat foo.txt`;
s/FINDME/$replace/g;

...这显然是语法错误。请尝试这种方式：

s/FINDME/"SOMETHING".`cat foo.txt`/ge;

你会发现它有效，因为这是有效的代码：

$replace = "SOMETHING".`cat foo.txt`;

（你当然可以把更复杂的东西放在那里;因为幕后发生的事情是eval {}，你的代码实际上是这样做的：

eval { "SOMETHING".`cat foo.txt`; }
s/FINDME/$_/g;

然而，为了便于理解，我简化了： - ）