Foro - Perl en Español

por **chanozg** » 2012-02-05 12:01 @542

Pero a partir del mio ¿qué arreglo debería hacerle para completar el tema de la sangrías?

Y lo de los permisos, ¿a qué últimos mensajes se refiere?

Disculpa, pero es que mirando el de mi compañero me he liado bastante más.

Creo que el fallo viene porque sin_x y sin_r son en sí mismos subdirectorios, pero no tienen ningún archivo dentro, junto con el hecho de que haces el print "\n"; en la llamada recursiva siguiente, y no en el print() del subdirectorio...

Quizás sea mejor redefinir la forma de resolver esto... Es decir, pensar qué debe ocurrir dentro de la subrutina para que pinte todos los contenidos, siguiendo un orden. Lo que me preocupa es que el ejemplo de salida que has mostrado tiene un excepción grave (la primera columna), que hace difícil encontrar una solución cómoda. En el hilo anterior, la salida del directorio era solo con sangrado de espacios en blanco, nada de '|', '-' ni '\', por lo que era más fácil de solventar.

Lo de los últimos mensajes del hilo enlazado antes, es que explica porqué no salen los avisos de error en los subdirectorios sin_x y sin_r: es porque sus permisos sí están puestos, al haber sido descomprimidos desde un archivo zip. Empieza por leer el hilo por el final (página 3), y encontrarás la forma de arreglarlo para que salgan los mismos mensajes.

por **explorer** » 2012-02-05 18:25 @809

Encontré una solución:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#
use autodie;
 
mostrar_directorio('..');                          # Ejemplo
 
sub mostrar_directorio {
    my $dir = shift;
    print "$dir (Directorio de partida)\n";        # La función solo pinta la cabecera
    mostrar_directorio_recursivo($dir, '');        # e inicializa el proceso recursivo
}
 
sub mostrar_directorio_recursivo {
    my($dir,$sangrado) = @_;
 
    my $DIR;                                       # obtenemos todo el contenido del $dir
    opendir($DIR, $dir);
    my @contenido = grep { !/^\.{1,2}$/ } readdir($DIR);
    closedir $DIR;
 
    my $del = '|';                                 # delimitador por defecto para todos los contenidos
 
    for my $entrada (@contenido) {                 # recorremos todos los contenidos
        my $ruta = "$dir/$entrada";
            
        if ($entrada eq $contenido[-1]) {          # cambiamos el delimitador, si es el último contenido
            $del = '\\';
        }
 
        if (-d $ruta) {                            # es un directorio
 
            print "$sangrado$del- $entrada(Directorio)";
            
            if (!-r $ruta) {                       # casos especiales
                print " >>>> ERROR: A <$ruta> le falta el permiso de lectura.\n";
                next;
            }
            if (!-x $ruta) {
                print " >>>> ERROR: A <$ruta> le falta el permiso de busqueda.\n";
                next;
            }
 
            print "\n";
 
            my $nuevo_sangrado = $sangrado;        # cálculo del sangrado
            if ($del eq '|') {
                $nuevo_sangrado .= '| ';                # es un sangrado dentro de un dir. dentro de otro
            }
            else {
                $nuevo_sangrado .= '  ';                # es un sangrado del último dir.
            }
                                                   # Llamada recursiva
            mostrar_directorio_recursivo($ruta, $nuevo_sangrado);
        }
        else {                                     # es un archivo normal
            print "$sangrado$del- $entrada\n";
        }
    }
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Ahora sale:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

.. (Directorio de partida)

|- etc(Directorio)

| |- group2

| |- passwd

| |- group

| \- passwd2

|- script(Directorio)

| |- code_29559_1.pl

| |- enunciado_rubrica_v1.pdf

| |- historico.txt

| |- pruebas.bash

| |- config3.txt

| |- historico2.txt

| |- minishell.pl~

| |- pruebas2.txt

| |- salida.pdf

| |- config2.txt

| |- enunciado_rubrica_v1.odt

| |- pruebas3.txt

| |- salida.txt

| |- minishell.pl

| |- salida.odt

| |- pruebas.txt

| |- entradas.txt

| \- config.txt

|- home(Directorio)

| |- sin_x(Directorio) >>>> ERROR: A <../home/sin_x> le falta el permiso de busqueda.

| \- sin_r(Directorio) >>>> ERROR: A <../home/sin_r> le falta el permiso de lectura.

\- home2(Directorio)

  |- alum1(Directorio)

  | |- f1

  | |- f2

  | \- f3

  |- alum3(Directorio)

  \- alum2(Directorio)Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Pero no sé si funcionará en todos los casos... no he hecho muchas pruebas.

por **chanozg** » 2012-02-05 18:45 @823

¡Parece que está perfecto!

Lo de los permisos que me decías, me leí el hilo y lo que entendí es que ese error aparecerá o no dependiendo de cómo se haya realizado la descarga del archivo zip, es decir, que no depende de mi script, ¿verdad?

Es decir, que doy por hecho que a mi profesor sí que le debería salir esos ERRORES.

por **explorer** » 2012-02-05 18:56 @831

La saldrán esos errores porque los subdirectorios tienen los permisos puestos para que salgan esos errores.

Entonces, la respuesta es sí: tu programa funciona.

Ahora bien, si quieres quedarte tranquilo, entonces en ese hilo, al final, vienen las instrucciones para darles esos permisos a los subdir. y que salgan luego los mensajes de error. Pero ya digo, esto es opcional, porque depende de la estructura de archivos que tengas en ese momento.

por **chanozg** » 2012-02-05 19:04 @836

He encontrado este fallo

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

4 : mostrar_directorio nada

nada (Directorio de partida)

readdir() attempted on invalid dirhandle $DIR at minishell.pl line 180, <> line 4.

closedir() attempted on invalid dirhandle $DIR at minishell.pl line 181, <> line 4.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

cuando lo que debería salirme es

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

4 : mostrar_directorio nada

>>>> ERROR: No existe <nada>Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-02-05 19:10 @840

No sabía que había que hacer eso.

De todas maneras, la solución es muy sencilla, ¿no?

por **chanozg** » 2012-02-05 19:20 @847

Añadi lo siguiente pero sigue saliendome diferente

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 
mostrar_directorio('..');    # 
 
sub mostrar_directorio {
    my $dir = shift;
    print "$dir (Directorio de partida)\n";
    mostrar_directorio_recursivo($dir, '');
}
 
sub mostrar_directorio_recursivo {
    my($dir,$sangrado) = @_;
 
    my $DIR;
    opendir($DIR, $dir);
    my @contenido = grep { !/^\.{1,2}$/ } readdir($DIR);
    closedir $DIR;
 
    my $del = '|';
 
    if ( !@contenido ) {
        $del = '\\'; # Caso de subdir vacío
    }
 
    for my $entrada (@contenido) {
        my $ruta = "$dir/$entrada";
           
        if ($entrada eq $contenido[-1]) {
            $del = '\\';
        }
 
        if (-d $ruta) {               # Directorio
            print "$sangrado$del- $entrada(Directorio)";
 
            if (!-e $ruta) {
                print(">>>> ERROR: No existe <$ruta>\n");
                next;
            }
           
            if (!-r $ruta) { #Lectura
                print " >>>> ERROR: A <$ruta> le falta el permiso de lectura.\n";
                next;
            }
 
            if (!-w $ruta) { # Modificacion
                print ">>>> ERROR: A <$ruta> le falta el permiso de modificacion.\n";
                next;
            }
 
            if (!-x $ruta) { #Busqueda
                print " >>>> ERROR: A <$ruta> le falta el permiso de busqueda.\n";
                next;
 
            }
 
            print "\n";
 
            my $nuevo_sangrado = $sangrado;
            if ($del eq '|') {
                $nuevo_sangrado .= '| ';
            }
            else {
                $nuevo_sangrado .= '  ';
            }
            mostrar_directorio_recursivo($ruta, $nuevo_sangrado);
        }
        else {
            print "$sangrado$del- $entrada\n";          # Archivo normal
        }
    }
}
 
 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-02-05 20:18 @887

No tiene sentido preguntar por la no-existencia de un archivo/directorio, porque sabemos que sí existe (fue leído unas líneas antes por readdir).

Entonces, para contemplar el caso especial de que el usuario introduzca el nombre de un directorio que no exista (o de un archivo normal), lo que hay que hacer es poner esas comprobaciones dentro de mostrar_directorio(). Las líneas 32 a 37 tienes que subirlas allí.

por **chanozg** » 2012-02-05 20:46 @907

Creo que este es el definitivo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

mostrar_directorio('..');    #  Ejemplo
 
sub mostrar_directorio {
    my $dir = shift;
 
        if (!-e $dir) {  # Comprobar si existe
                print(">>>> ERROR: No existe <$dir>\n");
                return;
        }
 
    print "$dir (Directorio de partida)\n"; # Escribir cabecera
    mostrar_directorio_recursivo($dir, ''); # Inicializa el proceso recursivo
}
 
sub mostrar_directorio_recursivo {
    my($dir,$sangrado) = @_;
 
    my $DIR; # Obtener contenido del $dir
    opendir($DIR, $dir);
    my @contenido = grep { !/^\.{1,2}$/ } readdir($DIR);
    closedir $DIR;
 
    my $del = '|';  # Delimitador por defecto para todos los contenidos
 
    for my $entrada (@contenido) { # Recorrer todos los contenidos
        my $ruta = "$dir/$entrada";
           
        if ($entrada eq $contenido[-1]) { # Cambiamos el delimitador
            $del = '\\';
        }
 
        if (-d $ruta) {               # Directorio
            print "$sangrado$del- $entrada(Directorio)";
 
            if (!-r $ruta) { #Lectura
                print " >>>> ERROR: A <$ruta> le falta el permiso de lectura.\n";
                next;
            }
 
            if (!-w $ruta) { # Modificación
                print ">>>> ERROR: A <$ruta> le falta el permiso de modificación.\n";
                next;
            }
 
            if (!-x $ruta) { #Búsqueda
                print " >>>> ERROR: A <$ruta> le falta el permiso de búsqueda.\n";
                next;
            }
 
            print "\n";
 
            my $nuevo_sangrado = $sangrado; # Cálculo de sangrado
            if ($del eq '|') {
                $nuevo_sangrado .= '| '; # Sangrado dentro de un dir. dentro de otro
            }
            else {
                $nuevo_sangrado .= '  '; # Sangrado del último dir.
            }
 
            mostrar_directorio_recursivo($ruta, $nuevo_sangrado); # Llamada recursiva
        }
        else {
            print "$sangrado$del- $entrada\n";          # Archivo normal
        }
    }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo que me falta por saber es si el ERROR de búsqueda está bien donde lo puse.

¡Gracias!

Foro - Perl en Español

Impresión recursiva de directorios

Re: Impresión recursiva de directorios

Publicidad

Re: Impresión recursiva de directorios

Re: Impresión recursiva de directorios

Re: Impresión recursiva de directorios

Re: Impresión recursiva de directorios

Re: Impresión recursiva de directorios

Re: Impresión recursiva de directorios

Re: Impresión recursiva de directorios

Re: Impresión recursiva de directorios

Re: Impresión recursiva de directorios

¿Quién está conectado?