Perl　ディレクトリーがあるかどうか確認する

ディレクトリーがあるかどうか確認する

引数としてディレクトリーのパスを与えます

#!/usr/bin/perl

$dir = $ARGV[0];

if (-d $dir ) {

print “ok”;

}else{

print “ng”;

}

 

 

デスクトップというディレクトリーがあるかどうかを確認します

# perl ‘/home/hirano/Desktop/dirok.pl’ /home/hirano/Desktop/
ok

CGIでロック機構をやるときに訪問者が居たときにディレクトリー
のチェックをして同時書きこみを防止するときに使います。