Problema al leer directorio con readdir
Publicado: 2012-06-14 20:53 @911
Resulta que tengo este código
cuando lo ejecuto en Windows me muestra los directorios, pero cuando lo ejecuto en el hosting en Linux no me saca nada, aunque parece que sí recorre los ficheros.
En Windows el mismo directorio tengo:
y en el hosting:
Y tienen los permisos 755
Using perl Syntax Highlighting
- opendir(my $dh, $some_dir) || die "can't opendir $some_dir: $!";
- #@dirs = grep { /^\./ && -f "$some_dir/$_" } readdir($dh);
- #Se lee el directorio
- while(readdir $dh) {
- #Pongo en directorio si, el archivo no es un fichero y el directorio no tiene . o ..
- push (@dirs,$_) if (! -f "$some_dir/$_" && ! /^\./);
- }
- closedir $dh;
- return Dumper @dirs;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
cuando lo ejecuto en Windows me muestra los directorios, pero cuando lo ejecuto en el hosting en Linux no me saca nada, aunque parece que sí recorre los ficheros.
En Windows el mismo directorio tengo:
- $VAR1 = 'cleany_blue'; $VAR2 = 'cleany_green'; $VAR3 = 'default'; $VAR4 = 'modern'; $VAR5 = 'talabary';
y en el hosting:
- $VAR1 = undef; $VAR2 = undef; $VAR3 = undef; $VAR4 = undef; $VAR5 = undef; $VAR6 = undef; $VAR7 = undef;
Y tienen los permisos 755