ファイル演算子「 -f 」で、通常ファイルの存在を確認する。

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

### 通常ファイルの存在を確認する。
# -f ファイル名

print "1: 通常ファイルの存在を確認する。 -f \n";
my $file = 'a.txt';
if( -f $file ){ #
print "'$file' は、存在します。\n";
}
else{
print "'$file' は、存在しません。\n";
}

__END__


http://d.hatena.ne.jp/perlcodesample/20080505/1209997969