ファイルの有無を判定する

Perlでは、ファイルテスト演算子-eを使ってファイルの存在を調べることができます。ファイルが存在していれば真（1）、存在していなければ偽（空文字）を返します。

以下にサンプルコードを示します

my $filename = "example.txt";
if (-e $filename) {
print "文件存在\n";
} else {
print "文件不存在\n";
}

上記サンプルでは、まずファイル名example.txtが定義され、ファイル有無をテストする-eファイルテスト演算子が使用されています。ファイルが存在すれば「ファイルは存在します」が出力され、ファイルが存在しなければ「ファイルは存在しません」が出力されます。