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

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

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

#!/usr/bin/perl

$file = $ARGV[0];

if (-x $file ) {

print “ok”;

}else{

print “NG”;

}

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

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

いちいちプロパティを開かないで確認したいときに使います。