[Perl] Re: problemas hash (Sergi -)

[Antonio Galindo Castro]

Si tu archivo es así:

> nombre:direcciondecorreo
> nombre2:direcciondecorreo2
> nombre3:direcciondecorreo3

Y ya tienes un filehandle para el , ¿por qué no haces algo así:

while ( <ARCH> ) {
  $tu_hash{[split /:/, $linea]->[0]} = [split /:/, $linea]->[1];
}

Y listo, en lugar de hacer la hash como querías.  Claro está que si
estás usando el pragma strict antes tendrás que definir la hash algo
así:

my %tu_hash = ();

Espero te sea útil esto.

Antonio "FunkyM0nkey" Galindo