Foro - Perl en Español

por **tutoki** » 2012-05-28 15:43 @697

Hola a todos.

Estoy intentado añadir en un array asociativo (hash) una serie de datos (clave, valor) vía teclado estándar (STDIN) y no soy capaz. Lo he intentado con push() pero solo me funciona con array.

Dadme un pista por favor, !gracias¡

SALUD

Es obvio que, al ser las claves únicas, solo existirá una clave para Renault.

Si queremos guardar varios valores relacionados con esa clave, lo que tenemos que hacer es guardar, como valor, una referencia a un array que almacene esos valores:

$hash{'Renault'} = [ 'rojo', 'verde' ];

La presencia de los corchetes crea un array anónimo (un array sin nombre de variable). De él obtendremos una referencia (puntero) a él, que será lo que almacenaremos como valor en el hash, asociado a la clave 'Renault'. Y dentro de él ya hemos colocado un par de valores.

Si, luego, queremos meter un valor más, 'azul', lo podemos hacer así:

push @{ $hash{'Renault'} }, 'azul';

o, en Perl moderno:

use v5.14;
push $hash{'Renault'}, 'azul';

Más información en perlref, perllol, perldata y perldsc.

por **tutoki** » 2012-05-29 14:57 @664

Tiendo a pensar en un hash como algo con filas y columnas.

No tengo claro cómo hacer referencia al array anónimo que me comentas para sacarlo por pantalla.

foreach() es para una hash, digamos, normal.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl 
use strict;
use warnings;
 
# Inicializamos el hash
my %coche ;
$coche{'renault'} = [ 'rojo', 'verde', 'amarillo' ];
$coche{'seat'}    = [ 'roja', 'verda', 'amarilla' ];
 
foreach my $color ( keys %coche )
{
        my $coche = $coche{$color};
        print "Los colores de su $color son : ". $coche{'renault'} ."\n";
}
 
# El resultado de print 
#Los colores de su renault son: ARRAY(0x8e707ec)
Los colores de su seat son : ARRAY(0x8e707ec)
 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

SALUD

por **explorer** » 2012-05-29 17:04 @753

Pues no, un hash no son filas y columnas.

Es un diccionario: a cada palabra le corresponde una información. Piensa en los índices de palabras que hay al final de los libros: a cada palabra le corresponde una lista de números, que son las páginas donde aparece esa palabra. Pero pueden ser una, dos, veinte números de página. O ninguna. Aunque parezca bidimensional, más bien es una aplicación inyectiva de la clave hacia su valor.

Mejor escribe el ejemplo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
 
# Inicializamos el hash (otra forma distinta a la anterior)
my %coche = (
    'renault' => [ 'rojo', 'verde', 'amarillo' ],
    'seat'    => [ 'roja', 'verda', 'amarilla' ],
);
 
for my $marca ( keys %coche ) {                  # las claves de %coche, son las marcas de coches
    my $colores_ref = $coche{$marca};            # el valor es un escalar: una referencia
 
    # si $colores_ref es una ref. a un array, @$colores_ref es el array
    print "Los colores de su $marca son : @$colores_ref\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Más información en perldoc perllol y perldoc perlref.

por **tutoki** » 2012-05-29 17:35 @774

Madre mía, pues no tengo que aprender ni na...

Muchas Gracias.

SALUD...

Foro - Perl en Español

Arrays Asociativos

Arrays Asociativos

Publicidad

Re: Arrays Asociativos

Re: Arrays Asociativos

Re: Arrays Asociativos

Re: Arrays Asociativos

Re: Arrays Asociativos

Re: Arrays Asociativos

¿Quién está conectado?