Como fazer check-in no Perl se a permissão do arquivo for maior que 75
Para um arquivo unix, quero saber se o Grupo ou o Mundo tem permissão de gravação no arquiv
Eu estive pensando nestas linhas:
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
}
Obrigado