perl - 测试::简单检查文件是否存在

Question

有没有办法使用 test::simple 检查文件是否存在？我对 perl 很陌生，我阅读了所有 test::tutorial，很简单。我假设我需要在模块中创建一个 sub，但我可以添加常规 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; }
}

或者

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";