Perl: создать хеш из массива

Question

Если у меня есть следующий массив

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

Как создать из нее хеш, эквивалентный строке ниже?

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

Причина, по которой я хочу это сделать, заключается в том, что я могу использовать значимые имена, а не магические числа для индексов. Например:

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

Answer 1

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

Answer 2

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

Answer 3

Вы сказали в ответ на комментарий, что это исходит от Text :: CSV. В этом модуле есть способ импортировать его в хеш для вас.

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

Answer 4

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

Answer 5

TIMTOWTDI

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