Foro - Perl en Español

por **chanozg** » 2012-02-04 15:09 @673

Estoy haciendo un script en Perl y tengo un problema en una de las funciones.

Este es el enunciado de la función:

mostrar_directorio [directorio]
Recorre recursivamente el árbol de directorio partiendo desde el directorio pasado como argumento.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

(ayuda/salir)? mostrar_directorio ...

 etc (Directorio) 

  group 

  passwd 

 script (Directorio) 

  config.txt 

  historico.txt 

  minishell.pl 

  minishell..pl~

  ....Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Hasta ahí todo sin problemas pero ahora debo añadir...

Lo único que se debe de modificar es la salida. Esta estará claramente sangrada y se intentará representar lo más parecido a un árbol gráfico. Para ello se emplearán los caracteres: ‘|’, ‘\’ y ‘-‘.

Veámoslo en un ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

(ayuda/salir)? mostrar_directorio .. 

.. (Directorio de partida) 

|-script(Directorio) 

| |-config.txt 

| |-config2.txt 

| |-config3.txt 

| |-minishell.pl 

| |-pruebas.bash 

| |-pruebas.txt 

| |-pruebas2.txt 

| |-pruebas3.txt 

| \-historico.txt 

|-home2(Directorio) 

| |-alum3(Directorio) 

| |-alum2(Directorio) 

| \-alum1(Directorio) 

|   |-f1 

|   |-f2 

|   \-f3 

|-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. 

\-etc(Directorio) 

  |-group 

  |-group2 

|-passwd 

  \-passwd2Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Esta es la función que ha sacado por ahora:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub mostrar_directorio {
    my ( $d, $sangrado ) = @_;
    my (@subd);
 
    #comprobaciones de permisos y ficheros
 
    if ( !( -e "$d" ) ) {
        print(">>>> ERROR: No existe <$d>\n");
        return;
    }
 
    if ( !( -r "$d" ) ) {              #lectura
        print ">>>> ERROR: A <$d> le falta el permiso de lectura.\n";
    }
 
    if ( !( -w "$d" ) ) {              #modificación
        print ">>>> ERROR: A <$d> le falta el permiso de modificación.\n";
    }
 
    if ( !( -x "$d" ) ) {              #búsqueda
        print ">>>> ERROR: A <$d> le falta el permiso de búsqueda.";
    }
 
    if ( !opendir( DIR, "$d" ) ) {     #comprobar apertura
        return;
    }
 
    @subd = readdir(DIR);
    $sangrado .= ' ';
    print("\n");
    foreach ( (@subd) ) {
        if (/^\.{1,2}$/) { next; }     #comprobar no es directorio trabajo o anterior
 
        if ( -d "$d/$_" )              #comprobar que sea directorio
        {
            print("$sangrado|-$_ (Directorio)");
            mostrar_directorio( "$d/$_", $sangrado );    #llamada recursiva
        }
        else {
            print " |$sangrado|-$_\n"; #no es un directorio, imprimimos
        }
        close(DIR);                    #cerramos el directorio
    }
 
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Así llevo la función hasta ahora; lo único que me falta es saber cómo poner la barra "\" que no tengo ni idea.

Espero que alguien me pueda ayudar.

Yo veo dos líneas en las que haces uso del '|'.

Entonces, lo primero que haría dentro del bucle (antes de la 34), es ver si se trata o no del último elemento de @subd. Según sea o no, pondré el valor de una variable llamada, por ejemplo, $delimitador, al valor '|' o al '\'. Y luego, siguen las mismas líneas que tienes ahora, pero cambiando la aparición del '|' por la variable $delimitador.

Así, las salidas son las mismas que antes, pero el delimitador cambia cuando se trata del último elemento.

por **chanozg** » 2012-02-04 16:43 @738

Lo primero, muchísimas gracias, que aún no te las había dado...

Me estoy acercando bastante.

Hasta aquí he llegado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 
sub mostrar_directorio{
    my($d, $sangrado)=@_;
    my(@entradas);
 
 
    #comprobaciones de permisos y ficheros
 
    if(!(-e "$d")){
        print(">>>> ERROR: No existe <$d>\n");
        return;
    }
    if (!(-r "$d")){ #lectura
        print ">>>> ERROR: A <$d> le falta el permiso de lectura.\n";
    }
 
    if (!(-w "$d")){ #modificación
        print ">>>> ERROR: A <$d> le falta el permiso de modificación.\n";
    }
 
    if (!(-x "$d")){ #búsqueda
        print ">>>> ERROR: A <$d> le falta el permiso de búsqueda.";
    }
    if(!opendir(DIR, "$d")){ #comprobar apertura
        return;
    }
 
 
 
 
    @entradas=readdir(DIR);
    $sangrado .=' ';
    print("\n");
    foreach((@entradas))
    {
        if(/^\.{1,2}$/) {next;} #comprobar no es directorio trabajo o anterior
 
        if($_ eq $entradas[-1])
        {
        $delimitador='\-';
        } 
        else
        {
        $delimitador='|-';
        }
 
        if(-d "$d/$_") #comprobar que sea directorio
        {
             print("$sangrado.$delimitador.$_ (Directorio)");
             mostrar_directorio("$d/$_", $sangrado); #llamada recursiva
        }
        else
        {
             print " |$sangrado.$delimitador.$_\n"; #no es un directorio, imprimimos
        }
     }
     close (DIR); #cerramos el directorio
 
}
 
 
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Sigo haciendo algo mal porque este es el resultado que obtengo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

mostrar_directorio ..

 .|-.script (Directorio)

 |  .|-.historico2.txt

 |  .|-.enunciado_rubrica_v1.odt

 |  .|-.enunciado_rubrica_v1.pdf

 |  .|-.pruebas3.txt

 |  .|-.salida.txt

 |  .|-.config.txt

 |  .|-.pruebas.bash

 |  .|-.config3.txt

 |  .|-.pruebas.txt

 |  .|-.pruebas4.txt~

 |  .|-.minishellbueno.pl~

 |  .|-.historico.txt

 |  .|-.minishellbueno.pl

 |  .|-.minishell2.pl~

 |  .|-.salida.odt

 |  .|-.minishell.pl~

 |  .|-.pruebas2.txt

 |  .|-.pruebas4.txt

 |  .|-.salida.pdf

 |  .|-.config2.txt

 |  .|-.minishell.pl

 |  .|-.entradas.txt

 |  .\-.minishell2.pl

 .|-.etc (Directorio)

 |  .|-.group2

 |  .|-.passwd

 |  .|-.group

 |  .|-.passwd2

 .|-.home (Directorio)

  .|-.sin_r (Directorio)

  .|-.sin_x (Directorio)

 .|-.home2 (Directorio)

  .|-.alum3 (Directorio)

  .|-.alum2 (Directorio)

  .\-.alum1 (Directorio)

 |   .|-.f2

 |   .|-.f1

 |   .|-.f3
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Qué estoy haciendo mal ahora?

por **explorer** » 2012-02-04 20:10 @881

Lo primero, estás poniendo puntos '.' demás, en los print de las líneas 49 y 54. Quítalos.

Segundo, estás usando el mismo controlador (DIR) para todas las vueltas, y eso no me gusta nada. No afecta mucho porque haces la operación @entradas=readdir(DIR);, con la que lees todo el contenido del directorio, de golpe. Pero es mucho más seguro hacerlo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    if(!opendir(my $DIR, $d)){ # comprobar apertura
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    @entradas = readdir($DIR);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

     close ($DIR); # cerramos el directorio
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Tercero; algunos directorios ves que no acaban con '\'. Eso es porque en la línea 31 estás leyendo todo los archivos y directorios, incluidos los que excluyes en la línea 36. Y eso es lo que precisamente ocurre: resulta que en el subdirectorio etc/, las últimas entradas corresponden a esos directorios especiales. Al ser descartados por la línea 36, nunca se cumple la condición de la 38, por lo que no aparece el '\'.

La solución es filtrar los directorios especiales justo en el momento de leerles con readdir(): quita la 36 y la 31 la reescribes así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    @entradas = grep { !/^\.{1,2}$/ } readdir(DIR);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Hay otro detalle... me parece... y es que en la línea 32 sumas un espacio como espacio de sangrado, pero según el ejemplo de salida, quizás deberían ser dos, excepto... ¿el primer nivel?

por **chanozg** » 2012-02-04 23:09 @006

Ahora no

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub mostrar_directorio{
    my($d, $sangrado)=@_;
    my(@entradas);
 
 
    #comprobaciones de permisos y ficheros
 
    if(!(-e "$d")){
        print(">>>> ERROR: No existe <$d>\n");
        return;
    }
    if (!(-r "$d")){ #lectura
        print ">>>> ERROR: A <$d> le falta el permiso de lectura.\n";
    }
 
    if (!(-w "$d")){ #modificacion
        print ">>>> ERROR: A <$d> le falta el permiso de modificacion.\n";
    }
 
    if (!(-x "$d")){ #busqueda
        print ">>>> ERROR: A <$d> le falta el permiso de busqueda.";
    }
    if(!opendir(my $DIR, $d)){ #comprobar apertura
        return;
    }
 
 
 
 
    @entradas = grep { !/^\.{1,2}$/ } readdir(DIR);
    $sangrado .=' ';
    print("\n");
    foreach((@entradas))
    {
 
        if($_ eq $entradas[-1])
        {
        $delimitador='\-';
        } 
        else
        {
        $delimitador='|-';
        }
 
        if(-d "$d/$_") #comprobar que sea directorio
        {
             print("$sangrado $delimitador $_  (Directorio)");
             mostrar_directorio("$d/$_", $sangrado); #llamada recursiva
        }
        else
        {
             print " |$sangrado $delimitador $_\n"; #no es un directorio, imprimimos
        }
     }
     close ($DIR); #cerramos el directorio
 
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Ahora no obtengo resultado

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

2 : mostrar_directorio ..

readdir() attempted on invalid dirhandle DIR at minishell2.pl line 207, <> line 2.

Use of uninitialized value $DIR in ref-to-glob cast at minishell2.pl line 232, <> line 2.

3 : mostrar_directorio ../home

readdir() attempted on invalid dirhandle DIR at minishell2.pl line 207, <> line 3.

Use of uninitialized value $DIR in ref-to-glob cast at minishell2.pl line 232, <> line 3.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

He probado a poner tambien el $ delante de DIR en la linea 30 pero tampoco obtengo resultado

por **explorer** » 2012-02-05 06:09 @298

El error que sacas es, precisamente, de poner DIR, en lugar de $DIR.

Lo que pasa es que estás declarando $DIR dentro, y solo dentro, del if() de las líneas 23 a 25. No es conocido en el resto de líneas.

Coloca el my $DIR; en la línea 5, y en la línea 23, pon solamente if(!opendir($DIR, $d)){

por **chanozg** » 2012-02-05 08:11 @382

Aquí te dejo un ejemplo con lo que debería salirme

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

(ayuda/salir)? mostrar_directorio .. 

.. (Directorio de partida) 

|-script(Directorio) 

| |-config.txt 

| |-config2.txt 

| |-config3.txt 

| |-minishell.pl 

| |-pruebas.bash 

| |-pruebas.txt 

| |-pruebas2.txt 

| |-pruebas3.txt 

| \-historico.txt 

|-home2(Directorio) 

| |-alum3(Directorio) 

| |-alum2(Directorio) 

| \-alum1(Directorio) 

|   |-f1 

|   |-f2 

|   \-f3 

|-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. 

\-etc(Directorio) 

  |-group 

  |-group2 

  |-passwd 

  \-passwd2Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Doy por hecho que el orden no importa...

En mi resultado me sobran unas barras "|" que no veo la forma de que desaparezca.

Y no me aparecen eso errores que detecta que los archivos no tienen los permisos activados.

Aquí el código

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub mostrar_directorio{
    my($d, $sangrado)=@_;
    my(@entradas);
 
    my($DIR);
    #comprobaciones de permisos y ficheros
 
    if(!(-e "$d")){
        print(">>>> ERROR: No existe <$d>\n");
        return;
    }
    if (!(-r "$d")){ #lectura
        print ">>>> ERROR: A <$d> le falta el permiso de lectura.\n";
    }
 
    if (!(-w "$d")){ #modificacion
        print ">>>> ERROR: A <$d> le falta el permiso de modificacion.\n";
    }
 
    if (!(-x "$d")){ #busqueda
        print ">>>> ERROR: A <$d> le falta el permiso de busqueda.";
    }
    if(!opendir($DIR, $d)){ #comprobar apertura
        return;
    }
 
 
 
 
    @entradas= grep { !/^\.{1,2}$/ } readdir($DIR);
    $sangrado .=' ';
    print("\n");
    foreach((@entradas))
    {
        
 
        if($_ eq $entradas[-1])
        {
        $delimitador='\-';
        } 
        else
        {
        $delimitador='|-';
        }
 
        if(-d "$d/$_") #comprobar que sea directorio
        {
             print("$sangrado $delimitador $_  (Directorio)");
             mostrar_directorio("$d/$_", $sangrado); #llamada recursiva
        }
        else
        {
             print "  |$sangrado $delimitador $_\n"; #no es un directorio, imprimimos
        }
     }
     close ($DIR); #cerramos el directorio
 
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Y aquí mi resultado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

2 : mostrar_directorio ..

  |- script  (Directorio)

  |   |- historico2.txt

  |   |- enunciado_rubrica_v1.odt

  |   |- enunciado_rubrica_v1.pdf

  |   |- pruebas3.txt

  |   |- salida.txt

  |   |- config.txt

  |   |- pruebas.bash

  |   |- config3.txt

  |   |- pruebas.txt

  |   |- pruebas4.txt~

  |   |- minishellbueno.pl~

  |   |- historico.txt

  |   |- minishell2.pl~

  |   |- salida.odt

  |   |- minishell.pl~

  |   |- pruebas2.txt

  |   |- pruebas4.txt

  |   |- salida.pdf

  |   |- config2.txt

  |   |- minishell.pl

  |   |- entradas.txt

  |   \- minishell2.pl

  |- etc  (Directorio)

  |   |- group2

  |   |- passwd

  |   |- group

  |   \- passwd2

  |- home  (Directorio)

   |- sin_r  (Directorio)

   \- sin_x  (Directorio)

  \- home2  (Directorio)

   |- alum3  (Directorio)

   |- alum2  (Directorio)

   \- alum1  (Directorio)

  |    |- f2

  |    |- f1

  |    \- f3
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Son estas 3 últimas barritas de la izquierda las que me sobran.

por **explorer** » 2012-02-05 10:50 @493

Un compañero tuyo se adelantó aquí. En su primer mensaje aparece resuelto la forma de sacar el directorio, aunque no sigue la misma salida esperada que la que indicas tu. Y sospecho de que se puede simplificar un poco, aunque si tiene que ser exactamente la salida pedida, hay que tener en cuenta algún caso especial.

Y sobre el tema de los permisos que no aparecen en los directorios de pruebas, mira los últimos mensajes.

Foro - Perl en Español

Impresión recursiva de directorios

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?