Usando el hash en Perl

Los arreglos asociativos de perl son útiles estructuras de datos, que te permiten asociar un pedazo de dato (llamado llave) con otro (su valor). En este tutorial, revisaremos los arreglos asociativos y nos introduciremos a sus usos más avanzados.

Debido a que el nombre Arreglo Asociativo es muy largo, de aquí en adelante y en todos los demás tutoriales que haga, usare el término en inglés hash con su plural hashes.

Asignando pares llave/valor

Los hashes consisten de una o más llaves individuales y su valor asociado. Cada llave y valor son llamados pares. Hay varios métodos de insertar estos pares en un hash.

Si conoces (por lo menos unos) de los pares llave/valor que quisieras usar, lo siguiente es el método más directo para asignar pares a un hash:

%hash = ( manzanas => 6,
naranjas => 5,
peras => 3,
uvas => 2, );

Lo de arriba es la manera más legible de asignar un par llave/valor.
NOTA: No olvidemos la importancia de tener código fácil de leer. Una manera menos legible de asignar un valor es así:

%hash = qw(manzana 6 naranjas 5 peras 3 uvas 2);

Perl automáticamente convertirá lo anterior a un par llave/valor como si hubieras utilizado las flechas "=>" en el primer ejemplo. Sin embargo recomiendo el formato del primer ejemplo por propósitos de legibilidad, aunque puedes usar cualquiera de los formatos.

También puedes agregar cada par llave/valor individualmente. La línea siguiente agrega un nuevo par llave/valor a nuestro hash original:
$hash{durazno} = 3;

Si el hash original no hubiera existido esta línea hubiera creado uno nuevo, e insertado el primer par llave/valor como fue definido. Este proceso en la cual la variable puede brotar a vida, se llama "autovificación".

Esto es útil cuando necesitas hacer un loop a través de un archivo y quisieras insertar los datos del archivo al hash:

open (FILE, "fruits.txt");

while (){
chomp;

my @line = split(/t/);

$hash{$linea[0]} = $linea[1];

}

close(FILE);

Quitando pares del hash

Ahora que ya sabemos como agregar pares a hashes, necesitamos saber como deshacernos de ellos. Quitando un par es tan fácil como saber el par que quieres borrar:

delete $hash{durazno};

Usuarios que han visto este tema también han visto...

- Variables y estructura de los datos en Perl
- XML con Perl
- Enviar email con Windows en Perl
- ¿Cómo enviar emails usando Perl y Sendmail?
- Creación y control de procesos en Perl

- Versión imprimible de este documento

- Enviar por e-mail este documento