测试::简单检查文件存在

Question

有没有办法使用test :: simple来检查文件是否存在？我相当新的Perl和我阅读所有的测试::教程，简单。我假设我需要在模块中创建一个子组件，但是我可以只添加常规的Perl代码来检查文件吗？如果是这样，我怎么从测试文件中调用它？

对不起，我没有代码，因为我真的不明白这一点。

Answer 1

这应该工作

$filename = '/path/to/your/file.doc'; 
if (-e $filename) { 
print "File Exists!"; 
} 

要查看该文件是否允许读取，写入或执行我们可以用这些代替-e以上：

Readable: -r 
Writable: -w 
Executable: -x 

使用测试::简单

use Test::Simple tests => 1; 
my $filename='/path/to/your/file.doc'; 

ok(checkfile($file)==1,'File found'); 

sub checkfile{ 
    if (-e $_[0]) { return 1;} 
    else { return 0; } 
} 

OR

use Test::Simple tests => 1; 
my $filename='/path/to/your/file.doc'; 

ok(-e $filename,'File found'); 

Answer 2

Test::File似乎非常适合这种需求。

use Test::File; 
file_exists_ok $filename, "Check the file exists";