我需要在perl脚本中编辑一个文件，所以经常使用一个衬里：
perl -p -e s/<value>/<value>/ig
不适用于这种情况。如何从 perl 脚本中获得相同的结果？
open(CRONTAB, "+<file" || die "...";
while (<CRONTAB>) {
if ($_ =~ /value/) {
s/^\#+//;
print "$_\n";
}
}
我的印刷品正是我想要的。这只是我正在寻找的就地编辑。
