arrays - 在 Perl 中，如何创建一个其键来自给定数组的散列？

Question

假设我有一个数组，并且我知道我会做很多“该数组是否包含 X？”的问题。检查。执行此操作的有效方法是将该数组转换为哈希，其中键是数组的元素，然后您可以只说

if($hash{X}) { ... }

有没有一种简单的方法来进行数组到哈希的转换？理想情况下，它应该足够通用，能够获取匿名数组并返回匿名哈希。

Answer 1

%hash = map { $_ => 1 } @array;

它不像“@hash{@array} = ...”解决方案那么短，但这些解决方案要求散列和数组已经在其他地方定义，而这个解决方案可以采用匿名数组并返回匿名哈希。

它的作用是获取数组中的每个元素并将其与“1”配对。当这个 (key, 1, key, 1, key 1) 对列表被分配给一个哈希时，奇数编号成为哈希的键，偶数编号成为各自的值。