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

来源：学生作业帮助网编辑：作业帮时间：2024/05/05 10:05:32

$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) 可以去掉重复的数组元素