有没有办法使用test :: simple检查文件是否存在?我是perl的新手,我阅读了所有的test :: tutorial,简单。我假设我需要在模块中创建一个sub,但是我可以添加常规perl代码来检查文件吗?如果是这样,我如何从测试文件中调用它?
抱歉,我没有代码,因为我真的没有这个。
答案 0 :(得分:5)
这应该有效
$filename = '/path/to/your/file.doc';
if (-e $filename) {
print "File Exists!";
}
要查看是否允许读取,写入或执行文件,我们可以使用这些而不是上面的-e
:
Readable: -r
Writable: -w
Executable: -x
使用Test :: Simple
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');
答案 1 :(得分:1)
Test::File似乎非常适合这种需要。
use Test::File;
file_exists_ok $filename, "Check the file exists";