perl - 检查当前目录中是否存在文件名

Question

我有一个我正在尝试修改的脚本，以便根据它执行的位置，它会检查是否有一个名为regression_user.rpt的文件，如果有，它将创建一个名为regression_user1 的新文件。回复_ 我找到了解决方案，但我不知道如何改变它来做我想做的事。

我所拥有的是以下内容：

my $filename = 'c:\temp\test.txt';
if(-e $filename){
   //Create file with new name
   print("File $filename exists\n");
}else{
   //Create base file
   print("File $filename does not exists\n");
}

除了，路径$filename是可变的。有没有办法将执行位置作为变量合并到这个检查中？

这样做的目的是确保我不会覆盖现有文件（已经发生了太多次）。

Answer 1

如果执行位置是指当前工作目录，那么您只需要以下内容：

my $filename = 'test.txt';

如果执行位置是指找到正在执行的脚本的目录，则可以使用以下命令：

use FindBin qw( $RealBin );

my $filename = "$RealBin/test.txt";