Foro - Perl en Español

por **boligan** » 2017-08-05 18:41 @820

Hola a todos.

Bueno, mi duda es la siguiente: tengo un árbol de directorios organizados por año/mes/días. Ejemplo: dentro del año 2017 tengo 12 carpetas correspondientes a 12 meses, dentro de cada mes 30 o 31 carpetas según los días del mes y dentro de cada día una cantidad X de ficheros.

Lo que necesito es obtener las rutas completas de cada fichero, pues cada fichero pasará después por un decodificador. Ya tengo esto:

$directorio="W:/2017/Agosto/*"; #ruta
@files = glob($directorio);
foreach $files(@files){
push @lista,$files;
if(-f $files){push @fichero,$files;}
elsif(-d $files){push @carpetas,$files;}
}
print "@fichero";
print "@carpetas";

Y obtengo solo lo que está dentro dentro de agosto (30 carpetas, 0 ficheros). Yo necesito, como dije, lo que está en las subcarpetas que están dentro de agosto, o sea las 30 carpetas de los días de agosto y dentro de cada día leer los archivos...

P.D.: ojalá me entiendan, jejeje.

$directorio = "W:/2017/Agosto";
 
@archivos_del_mes = glob("$directorio/*");
 
foreach $archivo_del_mes (@archivos_del_mes) {
        if (-f $archivo_del_mes) {      # archivos sueltos colgando del directorio del mes (?)
                push @archivos, $files;
        }
        elsif (-d $archivo_del_mes) {   # es un directorio que contiene días
                my @dias = glob("$directorio/$archivo_del_mes/*");      # sacamos un listado de todos los días
                for my $dia (@dias) {                                                   # por cada día
                        my @archivos_del_dia = glob("$directorio/$archivo_del_mes/$dia/*");     # archivos de ese día
                        push @archivos, grep { -f $_ } @archivos_del_dia;                       # los vamos guardando todos juntos
                }
        }
}
print "@archivos";
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Buscar dentro de carpetas y subcarpetas

Buscar dentro de carpetas y subcarpetas

Publicidad

Re: Buscar dentro de carpetas y subcarpetas

¿Quién está conectado?