測試::簡單檢查文件存在

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