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

来源：学生作业帮助网编辑：六六作业网时间：2024/11/17 02:47:39

Perlmy%serial_hash=map{$_,1}@serial_numsmy%serial_hash=map{$_,1}@serial_numsPerlmy%serial_hash=map{$

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