perl - 如何使用 Perl 修改位于特定行之后一行的行？

Question

我有一个包含以下几行的文件:

...
# Check the date
date
...

我想注释掉date命令。但它在文件中出现了几次，我想注释位于 # Check the date 之后一行的 date，否则我只会使用:

perl -i -pe 's:(.*date.*):#$1:' file

如何改进我的逻辑并仅注释掉 # Check the date 注释后面的 date？

Answer 1

记住上一行是否是变量中的注释:

perl -pe 's/^(date)$/#$1/ if $prev; $prev = /^# Check the date$/;'