Perlでファイルの存在確認をするには

質問

Perlでプログラムを作成しています。
ご教授願いたいのですが、CSVファイルから一つずつファイルパスを抜き出して、
データベース上のファイルの有無を確認するには、どのような組み方を
したらよいでしょうか？

回答No.1

moon_night

CSVがどのような形式になっているかは分かりませんが、
単に横にカンマ区切りの場合。
$csv = ('file,file,file,file');
(@file_name) = split(",",$csv);
foreach (@file_name) {
if (-e $_) {
#存在します
} else {
# 存在しません
}

お礼

お答え頂き、ありがとうございます。
早速試行してみます。