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

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

我得到了这个数组：

my@array=（“汽车”、“公共汽车”、“自行车”）

我需要一个这样的散列：

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

---

谢谢

您可以使用hash slice来填充键/值

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

---

迭代数组的索引

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

可以缩短为

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

---

你想完成什么？