Question

Perl 帮忙看下 my %serial_hash = map { $_, 1 } @serial_nums

my %serial_hash = map { $_, 1 } @serial_nums

这句什么意思？

Answer 1

这是一个转换数组到哈希表的操作。
哈希表的索引就是数组的项目，值都是1。主要作用就是为了快速检索数组内的数值是否存在。

Answer 2

如果 @serial_nums= ('a','b','c') 那么 %serial_hash=(a=>1, b=>1,c=>1) 可以去掉重复的数组元素