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

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/26 12:51:28
Perl my %serial_hash = map { $_,1 } @serial_numsmy %serial_hash = map { $_,1 } @serial_nums
x) H-QȭTP-N-L̉H,PUM,PVP1TUp&HdHQ_`gC{o<]lq[ Du$ NVTxٴcm5m u@d2TxڿOv?|tIY-Ϧnxik- l @혗

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