regex - perl 就地搜索和替换，但仅在匹配第二个模式的行上

Question

今天我学习了如何使用 perl 对一个或多个文件进行搜索和替换。例如，我可以这样做:

perl -i -p -e "s/Sydney/Moscow/g" cities.txt

...完成后，cities.txt 将被就地修改，这样字符串“Sydney”的所有实例都已被“Moscow”替换。

这很好，但我想要更多控制:具体来说，我希望搜索和替换操作仅发生在以字符串“HomeCities:”开头的行上"

例如，如果 cities.txt 在我运行命令之前看起来像这样:

HomeCities:   Dublin, Sydney, Los Angeles, Chicago
AwayCities:   New York, Melbourne, Sydney, Oakland

...然后在命令完成后，它看起来像这样:

HomeCities:   Dublin, Moscow, Los Angeles, Chicago
AwayCities:   New York, Melbourne, Sydney, Oakland

除了使用显式的每行 for 循环和每行逻辑编写脚本或程序之外，有没有办法做到这一点？

Answer 1

你已经差不多了:

perl -i -p -e "s/Sydney/Moscow/g if /^HomeCities:/" cities.txt

编辑添加:

顺便说一句，如果文件可能包含一个名称包含“Sydney”作为子字符串的城市，例如。 “Sydneyville”之类的，并且您不想将其更改为“Moscowville”，您可以收紧正则表达式以仅适用于完整的单词:

perl -i -p -e "s/\bSydney\b/Moscow/g if /^HomeCities:/" cities.txt