Foro - Perl en Español

por **olgamc** » 2013-09-06 03:46 @199

Entiendo lo que me dices y leyendo el enunciado veo lo de la función insertar, pero no soy capaz de hacerla

#!/usr/bin/perl
my $archivo = 'etc/group';
my %vgrupos;
 
# Leer 'etc/group' y pasarlo a una estructura llamada VGrupos
open(GRUPOS, $archivo) or die "No se puede abrir archivo $archivo: $!\n";
 
while (my $linea_grupos = <GRUPOS>) {
    chomp $linea_grupos;                                         # quitamos los caracteres finales de línea
 
    my @campos = split /:/, $linea_grupos;
 
    $vgrupos{ $campos[0] } = join(':', @campos[1 .. $#campos]);  # nombre de grupo -> resto de la línea
}
 
close(GRUPOS) or die "No se puede cerrar archivo $archivo: $!\n";
 
# comprobación
#use Data::Dumper;
#print Dumper \%vgrupos;
 
 
# Luego nos pedirán de forma cíclica un nombre de grupo y un GID
while (1) { 
    print "Introduzca un nombre de grupo: ";
    $nombre_nuevo_grupo = <STDIN>;
    chomp $nombre_nuevo_grupo;
 
    # Cuando se pulse el nombre del grupo vacío, entendemos que no queremos seguir introduciendo grupos
    last if $nombre_nuevo_grupo eq '';          # salimos si no hay nombre de grupo
 
    print "Introduzca un GID: ";
    $gid = <STDIN>;
    chomp $gid;
 
    # se llamará a una función que añada dicho grupo a la estructura VGrupos
    # esta función recibirá por valor el GID, el nombre de grupo y, por referencia, VGrupos.
    agregar($gid, $nombre_nuevo_grupo, \%vgrupos);
}
 
 
# y pasamos nuestra estructura al fichero etc/group.
open(NUEVOGRUPOS, ">$archivo") or die "No se puede escribir en archivo $archivo: $!\n";
 
for my $nombre_grupo (sort keys %vgrupos) {
    print NUEVOGRUPOS join(':', $nombre_grupo, $vgrupos{$nombre_grupo}), "\n";
}
 
close NUEVOGRUPOS;
 
# subrutinas
sub agregar {
    my($gid, $nombre_grupo, $vgrupos_ref) = @_;
 
    # Comprobaremos que no existe grupo con otra función
    # ésta usará la estructura HASH (creada antes indicando dicha situación y su GID)
    $existe = comprobar_grupo($nombre_grupo, $vgrupos_ref);
 
    # si no   existe continúa el alta.
    if ( not $existe ) {
        $vgrupos_ref->{ $nombre_grupo } = "x:$gid";     # creamos nuevo grupo
    }
}
 
sub comprobar_grupo {
    my($nombre, $vgrupos_ref) = @_;
 
    return exists $vgrupos_ref->{ $nombre };    # devuelve verdadero si $nombre existe en vgrupos
}
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

por **olgamc** » 2013-09-06 09:11 @424

Muchas gracias por la solución :idea:

, me queda muy claro y gracias por explicarlo, despues de las vueltas que estaba dando esta por dejarlo sin terminar.

No sabia que se podia omitir la ruta en la linea 6 y la linea 43 si se ponia así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $archivo = 'etc/group';
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Tengo una duda de hashes. ¿Cómo almacenaría dos elementos: clave {valor1, valor2}? Por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my %usuarios = (
    '0' => {'GID','bash'},
    '1' => {'GID','bash'},
    '2' => {'GID','bash'},
    '3' => {'GID','bash'},
);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Espero que puedas ayudarme.
Gracias

por **explorer** » 2013-09-06 19:38 @860

Parafraseando el primer manual de Fortran para los ordenadores Xerox (allá por los años sesenta):

«Aparte de valores cambiantes, uno de los principales propósitos de las variables es darles nombres a las constantes; en vez de tener que escribir en cada ocasión el valor de pi como 3.141592653589793, se puede indicar ese valor a una variable en una instrucción así: my $PI = 3.141592653589793; y usar $PI en lugar de la forma más larga de la constante. Esto también simplifica la modificación del programa, en caso de que el valor de pi cambiase.» :lol:

Para guardar más de un valor, estamos hablando de listas de elementos, así que, o tenemos variables array o necesitamos arrays anónimos (usando corchetes):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my %usuarios = (
    '0' => ['GID','bash'],
    '1' => ['GID','bash'],
    '2' => ['GID','bash'],
    '3' => ['GID','bash'],
);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

y ya tenemos un hash de arrays.

Más información en tu propio ordenador en perldoc perldsc, y en la Web (traducido al español) (vete a la sección HASHES DE ARRAYS, para que veas un ejemplo con conocidas familias de dibujos animados).

por **olgamc** » 2013-09-09 16:13 @717

Como siempre, mil gracias por la explicación.

Y también por los enlaces que has puesto (se agradece el que está en español, que en inglés me cuesta un poquito más).

Foro - Perl en Español

Ejercicio con hashes y archivos

Re: 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

¿Quién está conectado?