为什么在这个正则表达式替换中引号的转义丢失了？

Question

为什么双引号的转义在这种情况下会丢失？

$ cat foo.txt   
This is a \"very good\" text worth AMOUNT dollars    
$ cat full_story.txt   
This is about money:  
STORY  

使用以下方法对其进行测试：

VAR=$(cat foo.txt)                                                                                         
TOTAL=$(cat full_story.txt)  
echo "$TOTAL" | perl -pe "s/STORY/$VAR/g"  

结果：

This is about money:  
This is a "very good" text worth AMOUNT dollars  

双引号的转义丢失了。我期待：

This is about money:  
This is a \"very good\" text worth AMOUNT dollars  

我怎样才能保存逃逸？

Answer 1

问题在于perl 会在显式替换字符串（不是perl 变量）中解析反斜杠转义，因此\" 会被解析为"。例如：

$ echo "A STORY" | perl -pe 's/STORY/\"Hello\"/'
A "Hello"

（注意 Bash 变量 $VAR 不会变成 perl 变量 $VAR ，而是一个常量字符串。）所以你需要像这样在常量字符串中转义反斜杠：

$ echo "A STORY" | perl -pe 's/STORY/\\"Hello\\"/' 
A \"Hello\"

您可以通过使用-s 切换到perl 将Bash 变量$VAR 转换为perl 变量$VAR 来解决此问题，如下所示：

echo "$TOTAL" | perl -spe 's/STORY/$VAR/g' -- -VAR="$VAR"

输出：

This is about money:  
This is a \"very good\" text worth AMOUNT dollars

解释：

• -s 启用perl 命令行上用户定义的开关的开关解析。在那里找到的任何开关都将从@ARGV 中删除，并在 Perl 程序中设置相应的变量。

Answer 2

您的代码存在code injection 错误。具体来说，您正试图从 shell 生成 Perl 代码，但失败了。

您将以下内容传递给 Perl：

s/STORY/This is a \"very good\" text worth AMOUNT dollars/g

您应该传递以下内容：

s/STORY/This is a \\"very good\\" text worth AMOUNT dollars/g

---

要正确生成 Perl 代码，您需要以下内容：

perl -pe's/STORY/'"$( printf %s "$VAR" | sed 's/\W/\\&/g' )"'/'

这会将以下内容传递给 Perl（也可以）：

s/STORY/This is a \\\"very good\\\" text worth AMOUNT dollars/g

---

不过，一开始就避免生成 Perl 代码要简单得多。在不使用 STDIN 或外部存储的情况下向 Perl 传递信息的主要方式有三种。

• 参数

  perl -pe'BEGIN { $VAR = shift(@ARGV) } s/STORY/$VAR/g' -- "$VAR"
  

• 命令行选项

  在完整的程序中，您可以使用 Getopt::Long，但 perl -s 在这里也可以。

  perl -spe's/STORY/$VAR/g' -- -VAR="$VAR"
  

• 环境变量

  VAR="$VAR" perl -pe's/STORY/$ENV{VAR}/g'