如何用Bash脚本替换Perl脚本中指定变量引号内的内容？

我有一段Perl脚本，定义了如下局部变量：

my $cool_variable="Initial value";
COOLVAR="Initial value for COOLVAR"

我希望通过Bash脚本替换这些变量引号内的内容。目前已实现替换COOLVAR这类变量的功能，对应的Bash脚本代码如下：

#!/bin/sh
dummy_var="Replaced value"
sed -i -r "s#^(COOLVAR=).*#\1$dummy_var#" perlscript.pl

但尝试替换$cool_variable这类Perl变量时，使用如下类似的sed命令却无法生效：

sed -i -r "s#^($cool_variable=).*#\1$dummy_var#" perlscript.pl

之前的sed命令失效有三个核心原因：

• 正则未匹配Perl变量行开头的my 前缀，无法定位目标行
• Bash会将双引号中的$cool_variable解析为自身的环境变量（未定义时会展开为空），导致正则规则被破坏
• sed正则中$是表示行尾的特殊字符，必须转义才能匹配Perl变量名里的$字符

针对这些问题，给出两种可行的修正方案：

方案一：使用单引号包裹sed表达式（推荐） #

单引号可以避免Bash解析表达式中的$，同时通过断开单引号的方式插入Bash变量dummy_var：

#!/bin/sh
dummy_var="Replaced value"
# 替换Perl的$cool_variable变量
sed -i -r 's#^(my \$cool_variable=).*#\1"'"$dummy_var"'"#' perlscript.pl
# 替换COOLVAR变量（保持原有逻辑，也可以统一用单引号写法）
sed -i -r 's#^(COOLVAR=).*#\1"'"$dummy_var"'"#' perlscript.pl

方案二：在双引号中转义特殊字符 #

如果坚持使用双引号包裹sed表达式，需要将Perl变量名里的$转义为\\$（避免Bash解析），同时匹配行开头的my 前缀：

#!/bin/sh
dummy_var="Replaced value"
sed -i -r "s#^(my \\$cool_variable=).*#\1\"$dummy_var\"#" perlscript.pl

说明 #

两种方案都会将Perl脚本中的my $cool_variable="Initial value";替换为my $cool_variable="Replaced value";，同时保留原有的变量定义格式。

内容的提问来源于stack exchange，提问作者derwian36