使用 grep 或 map 将数组元素映射到哈希键

[PerlMonk]

Code: [show] | [select all]

my %hash;

grep { $hash{$_} = 1 } ('a' .. 'd');

而使用 map 更直接（如果数组不是非常庞大的话）：

Code: [show] | [select all]

my %hash = map { $_, 1 } ('a' .. 'd');