Foro - Perl en Español

por **gonzal** » 2012-01-18 05:08 @255

No hay más... ¿qué usuarios esperas que salgan?

Primero agradecerte, sinceramente, @explorer tu siempre ayuda..

Pues cuando ejecuto los comandos(son pruebas que tiene que pasar el script):

mostrar_grupo usuario
mostrar_grupo usuario -p
mostrar_grupo 1000 -p

no me aparecen los siguientes usuarios que debería de aparecer viendo los resultados correctos para dichas pruebas:

usuario UID primario/secundario
========== ===== ===================
usuario 1000 primario
ejuarez 1001 primario
prueba 1005 primario

Sin embargo, el que sí me aparece correctamente cuando tiene que aparecer es este:

usuario UID primario/secundario
========== ===== ===================
prueba2 1002 secundario

¿por qué? :roll:

            'porUsuario' => {

                              'prueba2' => [

                                             $grupos->{'datos'}{'usuario'}

                                           ],

                              'usuario' => [

                                             $grupos->{'datos'}{'dialout'},

                                             $grupos->{'datos'}{'cdrom'},

                                             $grupos->{'datos'}{'floppy'},

                                             $grupos->{'datos'}{'audio'},

                                             $grupos->{'datos'}{'www-data'},

                                             $grupos->{'datos'}{'video'}

                                           ],

                              'ejuarez' => [

                                             $grupos->{'datos'}{'cdrom'},

                                             $grupos->{'datos'}{'floppy'},

                                             $grupos->{'porGid'}{'100'}

                                           ],

                              'postgres' => [

                                              $grupos->{'datos'}{'ssl-cert'}

                                            ]

                            },Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

y ya empezamos a ver problemas: los usuarios no tienen bien registrado los grupos a los que pertenecen. Por ejemplo, el usuario 'ejuarez' aparece ahí que pertenece a los grupos 'cdrom', 'floppy' y al 100 ('users'), pero en el fichero passwd se indica que su grupo principal es el 1000 ('usuario'). O por ejemplo, el usuario 'usuario': tampoco viene indicado que pertenezca al grupo 'usuario'.

Cuando mandamos ejecutar el comando 'mostrar_grupo usuario', el programa recupera $grupos->{porNombre}->{usuario}, que apunta a $grupos->{'datos'}{'usuario'}, y según el Dumper, esto es lo que contiene:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

                         'usuario' => {

                                        'password' => 'x',

                                        'name' => 'usuario',

                                        'users' => [

                                                     'prueba2'

                                                   ],

                                        'gid' => '1000'

                                      },Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

y vemos que solo contiene al usuario 'pruebas2'.

Así que está mal la lectura de los datos. En la subrutina cargar_usuarios(), no se actualiza la variable $grupos con los grupos principales a los que pertenecen los usuarios.

Recuerda: Data::Dumper es tu amigo (también Data::Dumper::Simple, pero éste tienes que instalarlo antes).

por **gonzal** » 2012-01-19 04:25 @226

Gracias @explorer, voy entendiendo el error, ayer estuve intentando buscar el fallo en estas líneas de código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub cargar_usuarios
{
        #Borramos los usuarios actuales
        $usuarios = {
                #Indices
                "porNombre"=>{},
                "porUid"=>{},
                "porCasa"=>{},
                
                #Datos
                "datos"=>{},
        };
        #Cargamos los datos del fichero
        open(my $ficheroUsuarios,  "<",  $config->{"PASSWD"});
        while(my $linea = <$ficheroUsuarios>)
        {
                $linea =~ /^(.*):(.*):(.*):(.*):(.*):(.*):(.*)$/;
                
                #asignación de los valores a la global de usuarios
                #en sus distintos índices
                $usuarios->{"datos"}->{$1} = {
                        "name"=> (defined $1)? $1: "",
                        "password"=>(defined $2)? $2: "",
                        "uid"=>(defined $3)? $3: "",
                        "gid"=>(defined $4)? $4: "",
                        "fullName"=>(defined $5)? $5: "",
                        "home"=>(defined $6)? $6: "",
                        "shell"=>(defined $7)? $7: "",
                };
                if(defined $6)
                {
                        $usuarios->{"porCasa"}->{$6} = $usuarios->{"datos"}->{$1};
                }
                $usuarios->{"porNombre"}->{$1} = $usuarios->{"datos"}->{$1}; 
                $usuarios->{"porUid"}->{$3} = $usuarios->{"datos"}->{$1};
                
        }
        close($ficheroUsuarios);
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Pero he intentado hacer varios cambios para que se actualice la variable $grupos, y al final, o me sale lo mismo o llega un momento en el que ya no me aparece ningún usuario perteneciente al grupo.

por **explorer** » 2012-01-19 11:05 @503

Solo tienes que agregar una línea, dentro del while(), en donde hagas un push al array que guarda los valores de los grupos de ese usuario, con un valor más, que es el de gid que acabas de extraer de la línea leída. Por ejemplo, en la línea 36, la puedes poner.

Algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

push  @{ $grupos->{'porUsuario'}->{$1} }, $grupos->{'porGid'}->{$4};
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

(No lo he probado, seguro que algo está mal escrito)

por **gonzal** » 2012-01-20 04:33 @231

Gracias, explorer, lo he probado y no me llega a funcionar. Lo que yo sé, que es poco, sobre la función push() es que añade elementos al final de un array. Tiene el formato push (@Array, "Elementos");

Supongo que es lo mismo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

push(@{$grupos->{"porUsuario"}->{$1}},$grupos->{"porGid"}->{$4});
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Porque en el resto no sé en qué puede estar fallando.

Seguiré probando e investigando dónde puede estar el error.

por **explorer** » 2012-01-20 18:44 @822

Creo que encontré la solución.

Las líneas correctas son:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

                push @{ $grupos->{'porUsuario'}->{$1} }, $grupos->{'porGid'}->{$4};
                push @{ $grupos->{'porUsuario'}->{$1}->[-1]->{users} }, $1;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

(dentro de cargar_usuarios(), al final del bucle while(), dentro de él).

La primera línea agrega el grupo principal del usuario (definido en passwd), a la lista de grupos a los que pertenece el usuario (creado antes en cargar_grupos()).

La segunda línea actualiza el registro que acabamos de poner, con el nombre del propio usuario ($1), en la lista de usuarios que pertenecen a ese grupo.

Ahora ya sale algo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

(ayuda/salir)? mostrar_grupo usuario 

usuario     UID  primario/secundario

========== ===== ===================

   prueba2  1002 secundario

   usuario  1000 primario

   ejuarez  1001 primario

    prueba  1005 primario

(ayuda/salir)? mostrar_grupo cdrom

usuario     UID  primario/secundario

========== ===== ===================

   usuario  1000 secundario

   ejuarez  1001 secundario

(ayuda/salir)?Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Pero viendo esas dos líneas monstruosas... me da que la estructura de datos que has elegido, es demasiado complicada...

De hecho, haciendo el Dumper de la estructura $grupos... se siguen viendo errores.

por **gonzal** » 2012-01-21 06:17 @303

explorer: eres una máquina. Si te soy sincero no hubiese encontrado el fallo nunca... Muchas gracias, acabas de corregir el 90% de los errores que me daba el programa

Yo también he llegado a pensar que la estructura de datos no es la más adecuada, pero ya no me da tiempo para cambiarla, sería casi un volver a empezar... y como que me entran unos sudores fríos. ¡je,je!

Otro error que me da, éste creo que bastante más sencillo, aunque no consigo dar con la tecla, es el de que no inicializa el fichero histórico. Este es su pequeño código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#Guarda un comando en el histórico de comandos. El histórico se guarda en un
#fichero, cuyo nombre queda determinado por el parametro global HISTORICO
#en $config
#Parametros:
#  parametro Escalar de texto, el parametro completo
sub guardar_historico
{
        my $comando = shift;
    open(HTS,">>".$config->{"HISTORICO"});
    print HTS "$comando \n";
    close(HTS);
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y en subrutina gestionar_comando:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub gestionar_comando
{
        my $comando = shift;
        my $resultado = 0;
        
        #Guardamos el comando en el histórico
        guardar_historico($comando);
        
        #Parseamos el comando
        given($comando)
        {
                when (/^salir$/)
                {
                        #salimos del programa
                        $resultado = comando_salir();
                }
                when (/^ayuda$/)
                {
                        #Mostramos el menú de ayuda
                        $resultado = comando_mostrar_ayuda();
                }
                when (/^mostrar_historico$/)
                {
                        #Mostramos el historial de comandos
                        $resultado = comando_mostrar_historico();
                }
...........................................
...........................................
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Los puntos suspensivos son porque sigue con más opciones, pero la que interesa es únicamente esa de mostrar histórico.

explorer, una vez más, muchísimas gracias...

por **explorer** » 2012-01-21 18:47 @824

El problema está en que los comandos los estás guardando con un espacio en blanco demás. Observa que hay un espacio entre $comando y "\n".

Por eso, luego, a la hora de leer los comandos, haces el chomp(), para quitarle el retorno de carro, pero el espacio en blanco sigue con ellos. Y por eso, no coincide con ningún comando del given() de la subrutina gestionar_comando().

por **gonzal** » 2012-01-24 04:02 @210

He quitado ese espacio pero no resuelve el problema de que no se inicializan los fichero históricos, es decir, cuando ejecuto la orden salir, debería de borrar todos los comandos guardados para cuando vuelva a ejecutar el script empezar de cero.

Debería de tener una salida así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

: mostrar_historico
Histórico. (../script/historico2.txt)
---------------------------------
cambiar_fichero_configuracion config2.txt
mostrar_directorio ../home2
mostrar_usuario usuario
mostrar_usuario alum1
mostrar_usuario 2001
mostrar_grupo usuario
mostrar_grupo alumnos
mostrar_grupo users
mostrar_grupo 2000
mostrar_grupo 2000 -s
mostrar_grupo 2000 -p
mostrar_grupo 2001
mostrar_grupo grupo_prueba -s
mostrar_grupo grupo_prueba -p
---------------------------------
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Pero en mi caso muestra todos los comandos guardados, aunque haya salido del programa, y sin numeración.

por **explorer** » 2012-01-24 12:59 @583

No entiendo lo que quieres decir.

Yo veo que los comandos se guardan sin numeración. La numeración solo aparece en la pantalla, según la línea 237.

Foro - Perl en Español

Fallos sintácticos y avisos (warning)

Re: Fallos sintácticos y avisos (warning)

Publicidad

Re: Fallos sintácticos y avisos (warning)

Re: Fallos sintácticos y avisos (warning)

Re: Fallos sintácticos y avisos (warning)

Re: Fallos sintácticos y avisos (warning)

Re: Fallos sintácticos y avisos (warning)

Re: Fallos sintácticos y avisos (warning)

Re: Fallos sintácticos y avisos (warning)

Re: Fallos sintácticos y avisos (warning)

Re: Fallos sintácticos y avisos (warning)

¿Quién está conectado?