将备份文件保存到Perl编辑就地的自定义目录中

Question

我已经有一个perl文件 changes.pl 。我可以通过 cmd命令运行 changes.pl 。我正在寻找将备份文件保存到特定目录的方法。我尝试过使用 cmd命令1 和 2 。但是，我得到结果来运行任何一个。

changes.pl

BEGIN {
    @ARGV = map glob("\"$_\""), @ARGV;
}

s/a/b/g;
s/c/d/g;
s/e/f/g;

cmd命令

perl -i.bak -p changes.pl My/Files/Directory/*.txt

cmd命令1

perl -i"save/*" -p changes.pl My/Files/Directory/*.txt

cmd命令2

perl -i.bak -i"save/*" -p changes.pl My/Files/Directory/*.txt

结果

  

无法在我的/文件/目录/文件上进行内部编辑1.txt：文件存在。

     

无法在My / Files / Directory / File 2.txt上进行就地编辑：文件存在。

     

无法在My / Files / Directory / File 3.txt上进行就地编辑：文件存在。

注意：

• 我在Windows上使用Perl。
• 我之前的一个问题是来自Borodin answer的 changes.pl 和 cmd命令。

Answer 1

http://blogs.msdn.com/b/steverowe/archive/2008/11/26/using-perl-for-mass-in-place-editing.aspx

TL;博士;尝试使用for循环而不是通配符。并且不要忘记“％i”周围的引号，因为文件名中有空格。