Perl 映射 - 需要将一个数组映射到一个散列中作为 arrayelement->array_index

Question

我有一个这样的数组:

my @arr = ("Field3","Field1","Field2","Field5","Field4");

现在我使用如下 map ，其中 /DOSOMETHING/是我正在寻找的答案。

my %hash = map {$_ => **/DOSOMETHING/** } @arr

现在我需要散列如下所示:

字段 3 => 0
字段 1 => 1
字段 2 => 2
字段 5 => 3
字段 4 => 4

有什么帮助吗？

Answer 1

%hash = map { $arr[$_] => $_ } 0..$#arr;

print Dumper(\%hash)
$VAR1 = {
          'Field4' => 4,
          'Field2' => 2,
          'Field5' => 3,
          'Field1' => 1,
          'Field3' => 0
        };