[ol][*]data0:[*]apple[*]banana[*]cherry[/ol][ol][*]open my ($d), \'data0\';[*]my %a = map { chomp; $_, 1 } ;[*]print \"$_:$a{$_}\\n\" for keys %a;[/ol][ol][*]data1:[*]apple? ? 20[*]banana??15[*]cherry??22[/ol][ol][*]open my ($d), \'data1\';[*]my %a = map { split;} ;[*]print \"$_:$a{$_}\\n\" for keys %a;[/ol][ol][*]data2:[*]apple[*]20[*]banana[*]15[*]cherry[*]22[/ol][ol][*]open my ($d), \'data2\';[*]my %a = map { chomp; $_} ;[*]print \"$_:$a{$_}\\n\" for keys %a;[/ol]
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024