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

Question

>我有一个脚本，我正在尝试修改该脚本，以便根据其执行位置，它将检查是否有一个名为regression_user.rpt的文件，如果是，它将创建一个名为regression_user1.rpt的新文件。我已经找到了解决方案，但我不确定如何更改它以做我想做的事情。

我拥有以下内容：

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

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

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

Answer 1

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

my $filename = 'test.txt';

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

use FindBin qw( $RealBin );
my $filename = "$RealBin/test.txt";