[Perl] problemas hash

[Antonio Galicia]

Sergi - wrote:

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

> %datos 
> (
>   nombre => "direcciondecorreo";
>   nombre2=> "direcciondecorreo2";
>   .....
> )

  Supongo que te estamos haciendo la tarea así que va para que te saques
un 10 (y luego tengas que explicar el código).

use Data::Dumper;
open F,"/tmp/text.txt" or die "Error al abrir el archivo: $!";
chomp(@a = <F>);
close F;
%h = map ( split(":"), @a);
print Dumper(\%h);

--
  Saludos,
  Antonio Galicia.