Foro - Perl en Español

Hola, estoy empezando con Perl, la verdad no sé mucho, y estoy intentando hacer un ejercicio que me han mandado y creo que es demasiado para mi, espero que puedan echarme una mano y orientarme en lo que tengo. Gracias.

También me dicen que no se permite usar la orden system() o equivalente dentro del programa como podría hacerse.

Debo hacer lo siguiente:

Leer etc/group y pasarlo a una estructura llamada VGrupos.

Luego nos pedirán de forma cíclica un nombre de grupo y un GID, se llamará a una función que añada dicho grupo a la estructura VGrupos; esta función recibirá por valor el GID y nombre de grupo por referencia VGrupos.

Comprobaremos que no existe grupo con otra función, ésta usará la estructura HASH (creada antes indicando dicha situación y su GID), si no existe continúa el alta.

Cuando se pulse el nombre del grupo vacío, entendemos que no queremos seguir introduciendo grupos y pasamos nuestra estructura al fichero etc/group.

Bienvenido a los foros de Perl en Español, olgamc.

El opendir() de la línea 1, creo que no sirve para nada.

Como no puedes usar system(), debes sustituir las operaciones mv con otras alternativas, como por ejemplo el método move() del módulo File::Copy, que viene incluido con Perl.

La descripción del ejercicio habla de crear funciones, pero no tienes ninguna sub {} definida.

El código está haciendo unas copias de directorios, que no es lo que te están pidiendo, sino algo más sencillo: leer y modificar el archivo etc/group.

Gracias por tu respuesta, veo que es un completo desastre lo que tengo.

¿Estaría haciendo correctamente leer el fichero y pasarlo a la estructura o tampoco hago bien eso? Me pongo a trabajar en ello. Gracias nuevamente, por tu ayuda y tus indicaciones.

Una forma de saber si hemos construido bien la estructura, es volcarla en pantalla o disco con la ayuda de Data::Dumper:

Gracias, no conocía Data::Dumper tengo que ver cómo se usa.

Sigo intentando avanzar, estoy con esto, ¿qué te parece... va bien?

En la descripción del ejercicio no se habla para nada de acceder al archivo de usuarios, solo al de grupos...

Lo hacía por que creía que los usuarios pertenecían a los grupos y era necesario. Veo que estaba en un error.

"Leer etc/group y pasarlo a una estructura llamada VGrupos."

Esto se hace abriendo el archivo y pasando la información a un hash, indexado por el nombre del grupo, para luego facilitar la búsqueda de información de un grupo basada en su nombre (saber si ya existe, sobre todo).


"Luego nos pedirán de forma cíclica un nombre de grupo y un GID,"

Otro bucle donde tenemos que leer dos entradas del usuario, por la entrada estándar.


"se llamará a una función que añada dicho grupo a la estructura VGrupos; esta función recibirá por valor el GID y nombre de grupo por referencia VGrupos."

Hay que definir una función que reciba esos dos argumentos, y de esa manera: como valor y como referencia.


"Comprobaremos que no existe grupo con otra función, ésta usará la estructura HASH (creada antes indicando dicha situación y su GID), si no existe continúa el alta."

Hay que definir otra función, que recibirá los mismos argumentos. Devolverá un valor de verdad según el nombre del grupo exista o no en el hash %vgrupos.


"Cuando se pulse el nombre del grupo vacío, entendemos que no queremos seguir introduciendo grupos y pasamos nuestra estructura al fichero etc/group."

Si después de leer el nombre del grupo que el usuario quiere añadir a vgrupos, es una cadena vacía, pues salimos del bucle, y pasamos a la parte de grabación de %vgrupos a disco.

Pues sigo trabajando en el ejercicio después de tus palabras, esto es lo que he hecho ahora, espero que esté mejor, tengo alguna duda si el foreach está bien o hay algún fallo de sintaxis:

Hay que hacer varios cambios.

De forma correcta, creas %vgrupos, pero luego no haces uso de ella.

La variable $vgrupos que usas en la línea 18 no tiene nada que ver con el hash %vgrupos. Te faltaría en todo caso una línea

$vgrupos = \%vgrupos;

y así sería correcta la línea 18 (pasar la estructura %vgrupos como una referencia).

Has escrito una función que se llama comprobar, pero el ejercicio te dice que debes crear dos. La primera será "insertar", que se encarga de actualizar la estructura %vgrupos, pero lo primero que hace dentro de ella es llamar a "comprobar" para ver si ese grupo ya está metido o no.

En la subrutina comprobar_gid haces un bucle, cuando en realidad no debería haber ninguno. Bastaría con un
Bueno, el devolver '0' o '1' depende del sentido que le des a la expresión "comprobar".

Dentro de "comprobar" has intentado poner las líneas de "insertar". La línea 26 es un error de sintaxis. Para imprimir a un archivo se usa print, como lo tienes en la 27. A propósito, en la línea 9 estás abriendo el archivo en modo lectura, no escritura.

En la descripción del problema no habla nada de comparar los GID, ¿verdad? Solo el nombre de los grupos.