ファイルの存在確認

-eでファイルの存在確認をしています。

#!/usr/bin/env perl
use strict;

my $efile = "file1";  #存在確認対象ファイル

if (-e $efile) {
  print "exist","\n";
} else {
  print "not exist","\n";
}
スポンサードリンク