perl - 如果一个句子以一个特定的单词开头，如果它确实存在，如何更改该句子中的单词？

Question

因此，基本上搜索 .txt 文件中的行，如果它以诸如“This”之类的单词开头，如果它确实存在，如何交换该句子中的目标单词？愿意用 bash、perl 或 awk 来做。

Answer 1

perl -pi -e "s/^This\b/That/" myfile

或者，如果您想更改该行中的其他单词，

perl -pi -e "s/\btargeted\b/swap/ if /^This\b/" myfile