Hola a todos.
Si utiliza la directiva strict, Win32::Perms y opendir, el programa me falla.
Ejemplo:
use strict;
use Win32::Perms;
my $user = Win32::Perms->new($fichero)->Owner;
print "$user\n";
opendir(DIR, $otroFichero);
@array = readdir(DIR);
foreach my $key (@array) {
print "$key\n";
}
Si elimino lo relativo a Win32::Perms, el programa funciona.
Como podéis observar, no tiene relación lo que hace Win32::Perms con lo que hace opendir(), me refiero a que no utilizan variables comunes, son dos partes ...