在Perl中调用sed通过变量替换sshd_config的端口配置

原脚本失效的原因 #

1. 第一段脚本：用单引号包裹sed命令时，shell不会解析其中的$prt变量，实际替换时会把$prt当作字符串写入，而非预期的Port 2022。
2. 第二段脚本：
   • 双引号环境下，sed正则里的$会被shell当作变量解析，而非正则的行尾匹配符。
   • 正则#Port [0-9]\+$未考虑行首/行尾的空格（比如配置行可能是#Port 22 ），导致无法匹配目标注释行。
   • 如果$prt包含空格，shell会拆分参数，直接导致sed命令执行出错。

修复方案 #

方案一：修正sed调用的变量传递与正则 #

通过Perl的qq{}构建命令字符串，转义正则中的$，同时处理变量的特殊字符：

my $port = 2022;
my $prt = "Port $port";
# 对替换内容转义，避免特殊字符干扰sed
my $prt_escaped = quotemeta($prt);
# 正则匹配带前后空格的注释行，转义$让sed识别为行尾
my $cmd = qq{sed -i 's/^\\s*#Port\\s+[0-9]+\\s*\$/$prt_escaped/g' sshd_config};
system($cmd);

方案二：直接用Perl原地编辑（更可靠） #

避免调用外部sed，用Perl原生的原地编辑功能处理，无需处理shell变量的引号陷阱：

my $port = 2022;
my $new_port_line = "Port $port";

# 原地编辑文件，生成sshd_config.bak备份（不需要备份则把$^I设为''）
local @ARGV = ('sshd_config');
local $^I = '.bak';

while (<>) {
    # 匹配任意前后带空格的#Port注释行
    s/^\s*#Port\s+[0-9]+\s*$/$new_port_line/;
    print;
}

关键说明 #

• 正则^\s*#Port\s+[0-9]+\s*$覆盖了配置行可能存在的前后空格，确保能匹配各种格式的注释端口行。
• 用Perl原生处理的方案更稳定，避免了shell命令的转义问题，适合复杂的文本替换场景。

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