Perl脚本，在＃前面添加字符串匹配，在下面的行中插入新字符串

Question

我正在尝试使用perl更新配置文件，我想出了一种方法来读取文件并更新键值对。但是，我想通过在＃前面添加匹配然后在

下面的行中插入字符串来改进它

现有脚本：

local($^I, @ARGV) = ("sourcefile");
    while (<>) {
            s,^key1=.*$,key1=value1,;
     s,^key2=.*$,key2=value2,;
     s,^key3=.*$,key3=value3,;
            print;
            close ARGV if eof;
    }

期望的结果：

file before:

    key1=value1
    key2=value2
    key3=value3


file after:

    key1=value1
    #key2=value2
    key2=test
    key3=value3

Answer 1

if (/match/) {
  print "#$_";
  s/.../.../;
  print
}