Как проверить в Perl, если разрешение файла больше, чем 755?
Для файла Unix я хочу знать, есть ли у группы или мира разрешение на запись в файл.
Я думал об этом:
my $fpath = "orion.properties";
my $info = stat($fpath) ;
my $retMode = $info->mode;
$retMode = $retMode & 0777;
if(($retMode & 006)) {
# Code comes here if World has r/w/x on the file
}
Благодарю.