Perl: Création d'un hachage à partir d'un tableau

Question

Si je le tableau suivant

my @header_line = ('id', 'name', 'age'); 

Comment puis-je créer un hachage de celui-ci correspond à la ligne ci-dessous?

my %fields = { id => 0, name => 1, age => 2}; 

La raison pour laquelle je veux faire ceci est que je puisse utiliser des noms significatifs plutôt que des nombres magiques pour les index. Par exemple:

$row->[$fields{age}]; # rather than $row->[2] 

Answer 1

my %fields; 
@fields{@header_line} = (0 .. $#header_line); 

Answer 2

my %fields =(); 
for (my $i = 0; $i < scalar(@header_line); $i++) { 
    $fields{$header_line[$i]} = $i; 
} 

Answer 3

TIMTOWTDI

my %fields =(); 
foreach my $field(@header_line) 
{ 
    %fields{$field} = scalar(keys(%fields)); 
} 

Answer 4

my %fields = map { $header_line[$_] => $_ } 0..$#header_line; 

Answer 5

Vous avez dit en réponse à un commentaire que cela vient de texte :: CSV. Ce module a un moyen d'importer ceci dans un hachage pour vous.

$csv->column_names(@header_line);
$row = $csv->getline_hr($FH);
print $row->{ 'id' };