Hashes

[Ing. Roberto Andrade]

Hola:

> 
> Como puedo meter a un arrerglo asociativo un archivo que tiene informacion
> como la que sigue?
> 
> uno:primero
> dos:segundo
> tres:tercero

Esto te debe trabajar:
En archivo está:

uno:primero
dos:segundo
tres:tercero 
cuatro:cuarto
cinco:quinto

--------------------------

#!/usr/bin/perl -w

open (OUT, "archivo") || print "Error al abrir archivo";

while (<OUT>) {
        chomp;
        @a = split (/:/);
        ($llave, $valor)=@a;
        $par{$llave}=$valor;
}

foreach $i (%par) {
        print "$i\n";
}       
--------------------------

Saludos,

Roberto