ファイルがあるかどうか確認する

ファイルがあるかどうか確認する

引数としてファイルのパスを与えます

#!/usr/bin/perl

$file = $ARGV[0];

if (-f $file ) {

print “ok”;

}else{

print “NG”;

}

dir.plというファイルがあるかどうかを確認します

# perl ‘/home/hirano/Desktop/fileok.pl’ /home/hirano/Desktop/txtfile.pl
ok

ファイル新規作成のときに確認します。