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 
}