Foro - Perl en Español

por **olgamc** » 2013-09-04 05:30 @271

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.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

opendir(DIR,"etc");
open(USUARIOS,"etc/passwd") or die "No se puede abrir el fichero. $!";
#Preparamos un hash que tenga para cada usuario su GID
while($var=<USUARIOS>)
{
   @vector=split /:/,$var;
   $usuarios{$vector[0]}=$vector[3];
}
 
close(USUARIOS);
 
open(VGRUPOS,"etc/group") or die "No se puede abrir el fichero. $!";
#Preparamos un hash que tenga para cada GID el nombre del grupo
while($var2=<VGRUPOS>)
{
   @vector_2=split /:/,$var2;
   $vgrupos{$vector_2[2]}=$vector_2[0];
}
close(VGRUPOS);
closedir(DIR);
#Realización de una copia de seguridad de los directorios de casa
#de todos los usuraios para el posterior traslado de los mismos
mkdir("Auxiliar",0777) or die "no se puede crear el directorio Auxiliar";
system("mv home/* Auxiliar");
opendir(HOME,"home");
#Ahora se crean los directorios respectivos para cada grupo
$base="home/";
foreach $directorio(values %vgrupos)
{
   $nombre=$base.$directorio;
   mkdir($nombre,0777) or die "No se puede crear el directorio $nombre";
}
closedir(HOME);
while(($usuario,$gid)=each %usuarios)
{
   $grupo=$vgrupos{$gid};
   $dir=$base.$grupo."/";
   $aux="Auxiliar/".$usuario;
   system("mv $aux $dir");
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

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.

por **olgamc** » 2013-09-05 03:30 @187

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.

por **explorer** » 2013-09-05 03:56 @205

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

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Data::Dumper;
print Dumper \%vgrupos;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **olgamc** » 2013-09-05 05:12 @258

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

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

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(vGRUPOS,"etc/group") or die "No se puede abrir etc/group $!";
$indice=0;
while ($linea_grupos=<vGRUPOS>){
                
                $lista_grupos[$indice]=$linea_grupos;
                $indice++;
}
chomp(@lista_grupos);
foreach $linea (@lista_grupos)
{
        @grupo=split /:/,$linea;
        $hash_grupo{$grupo[2]}=$grupo[0];  
}
close(vGRUPOS) or die "No se puede cerrar etc/group $!";
open(PASW,"etc/passwd") or die "No se puede abrir etc/passwd $!";
open(PASW2,">etc/passwd2") or die "No se puede abrir etc/passwd2 $!";
$i=0;
while ($linea_usuarios=<PASW>)
{
        $lista_usuarios[$i]=$linea_usuarios;
        $i++;
}
chomp(@lista_usuarios);
foreach $lin (@lista_usuarios)
{
        @usuario=split /:/,$lin;  #para cada valor de la lista
        foreach $us (keys %hash_grupo){
              if($us eq $usuario[3]){           #si los GID coinciden
                $dir_ent_nuevo="home/".$hash_grupo{$us}."/".$usuario[0];  
                print PASW2 "$usuario[0]:$usuario[1]:$usuario[2]:$usuario[3]:$usuario[4]:$dir_ent_nuevo:$usuario[6]";
             }
        }
}
rename("etc/passwd","etc/passwd2");   
close(PASW);
close(PASW2);
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-09-05 05:50 @285

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

por **olgamc** » 2013-09-05 06:01 @292

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

por **explorer** » 2013-09-05 06:48 @325

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

por **olgamc** » 2013-09-05 14:32 @647

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(VGRUPOS,"etc/group") or die "No se puede abrir el fichero. $!";
#Preparamos un hash que tenga para cada GID el nombre del grupo
while($var=<VGRUPOS>)
{
   @vector_=split /:/,$var;
   $vgrupos{$vector_[2]}=$vector_[0];
}
close(VGRUPOS);
open(NEWGRUPOS,"etc/group2") or die "No se puede abrir el fichero. $!";
 
do
{
        print "Introduzca un nombre de grupo : ";
        $nombre=<STDIN>;
        print "Introduzca un GID : ";
        $gid=<STDIN>;
        
        comprobar_gid($vgrupos,$nombre,$gid);
}
while $nombre!=<>;
 
sub comprobar_gid
{
        foreach $gr (keys $_[0]){
                if($gr eq $_[1]){               #si los GID coinciden
                <NEWGRUPOS> = $_[1].":".$_[2]."\n";
                print NEWGRUPOS "$_[1]:$_[2]";
                }
        }
}
close(NEWGRUPOS);
 
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-09-05 19:49 @867

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

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if ($_[0]->{$nombre_nuevo_grupo}) {
    # aquí llegamos cuando sí hay un grupo que se llama igual que el $nombre_nuevo_grupo
    return 1;
}
else {
    return 0;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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.

Foro - Perl en Español

Ejercicio con hashes y archivos

Ejercicio con hashes y archivos

Publicidad

Re: Ejercicio con hashes y archivos

Re: Ejercicio con hashes y archivos

Re: Ejercicio con hashes y archivos

Re: Ejercicio con hashes y archivos

Re: Ejercicio con hashes y archivos

Re: Ejercicio con hashes y archivos

Re: Ejercicio con hashes y archivos

Re: Ejercicio con hashes y archivos

Re: Ejercicio con hashes y archivos

¿Quién está conectado?