perl - 如何替换文件中的字符串并将其作为另一个文件替换为 "save"

Question

我正在尝试替换一堆 *.txt 文件中的字符串。我熟悉这个命令:

find "$folder" -type f -name '*.txt' -exec sed -i 's/REPLACEFROM/REPLACETO/g' {} \;

但是，这(根据 -i 标志)替换了字符串。

我想做的是保持所有原始文件完好无损，并将更改后的文件“保存”为“file1-renamed.txt”、“file2-renamed.txt”...

最快最优雅的方法是什么？也许是 perl？

我确信这是非常基本的，但对我来说似乎很难。 :)

预先感谢您的帮助。

Answer 1

有了sed，你可以使用

 sed -i.back

这样，原文件会被移动到*.back

或者使用此片段作为您的问题最接近:

find "$folder" -type f -name '*.txt' -exec bash -c '
    cp "$1" "${1%.*}-renamed.txt"
    sed -i 's/REPLACEFROM/REPLACETO/g' "${1%.*}-renamed.txt"
' -- {} \;