Hash itératives Configurer

Question

je le tableau suivant ...

my @array=("100 2", "300 1", "200 3"); 

De ce tableau, je veux construire itérativement un hachage.

Script actuel:

my %hash; 
foreach (@array) { 
my @split = (split /\s+/, $_); 
%hash = ("$split[0]", "$split[1]"); 
} 

Courant de sortie:

$VAR1 = { 
     '200' => '3' 
     }; 

Ce n'est pas ce que je veux. Mon but est ...

Objectif Sortie:

$VAR1 = { 
     '100' => '2' 
     '300' => '1' 
     '200' => '3' 
     }; 

Que dois-je faire?

J'utilise: Perl 5, version 18

Answer 1

Attribution à un hachage quelque chose — que vous faites chaque passage de la boucle — remplace son contenu. Remplacer

%hash = ("$split[0]", "$split[1]"); 

avec

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

---

Sinon, tout remplacer par

my %hash = map { split } @array;