¿Cómo registrar Perl si el permiso de archivo es mayor que 755?
Para un archivo Unix, quiero saber si Group o World tiene permiso de escritura en el archivo.
He estado pensando en estas líneas:
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
}
Gracias