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

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

Perl my %serial_hash = map { $_,1 } @serial_numsmy %serial_hash = map { $_,1 } @serial_nums
如果 @serial_nums= ('a','b','c') 那么 %serial_hash=(a=>1, b=>1,c=>1) 可以去掉重复的数组元素