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

Question

我有一个像这样的数组:

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

现在我使用下面的地图,其中/ DOSOMETHING /是我正在寻找的答案.

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

现在我要求哈希看起来如下所示:

Field3 => 0
Field1 => 1
Field2 => 2
Field5 => 3
Field4 => 4

有帮助吗？

Answer 1

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

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

Answer 2

my %hash;
@hash{@arr} = 0..$#arr;