perl - Test::Simpleでファイルをチェックできます

Question

test :: simpleを使用してファイルが存在するかどうかを確認する方法はありますか？私はperlにかなり慣れていないので、test::tutorialのすべてを読みました。モジュールにサブを作成する必要があると思いますが、ファイルをチェックするために通常のperlコードを追加するだけでいいですか？もしそうなら、どうすればテストファイルからそれを呼び出すことができますか？

申し訳ありませんが、実際にはこれを取得できないため、コードがありません。

Answer 1

これはうまくいくはずです

$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; }
}

また

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

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