使用数组表中的键创建哈希表 - perl

【问题标题】：Create a Hash table with keys from an array table - perl使用数组表中的键创建哈希表 - perl
【发布时间】：2014-11-20 06:07:44
【问题描述】：

如何使用来自数组表的键创建哈希表？

我有这个数组：my @array = ("car","bus","bike");

我需要一个这样的哈希：

my %h = ( "car" => "1",
      "bus" => "2",
      "bike" => "3" );

谢谢

【问题讨论】：

【解决方案1】：

您可以使用散列切片来填充键/值，

my @array = ("car","bus","bike");
my %h;
@h{@array} = 1 .. @array;

【讨论】：

【解决方案2】：

遍历数组的索引。

my %h;
for (0..$#array) {
   $h{ $array[$_] } = $_ + 1;
}

这可以缩短为

my %h = map { $array[$_] => $_+1 } 0..$#array;

【讨论】：