perl - 如果 $^I =".bak"已经存在，如何取消输出？

Question

在 Perl 中，我使用通用模式遍历文件:

$^I=".bak"; 

while(<>) {
  s/pattern/replacement/g;
  print;
}

$^I 将在其中创建备份。但是，我想测试备份文件是否存在，如果存在则取消脚本，这样备份就不会被覆盖。它必须明确删除。

问题是在 while 循环之外我不能这样做

if (-e "$ARGV.bak") {
  # print warning and exit
}

因为 $ARGV 直到 <> 才被设置，并且在 while 循环中 $ARGV 已经被替换。

那么我是否遗漏了什么，或者我必须以不同的方式来做这件事吗？

谢谢!

Answer 1

检查 @ARGV (这是 null <> 从中读取其文件名列表的内容)在进入使用它的 while 循环之前。例如

die "Backup file already exists.\n" if -e $ARGV[0] . $^I;