首页 > 代码库 > 【方法3:Perl版本】删除Map中Value重复的记录,并且只保留Key最小的那条记录
【方法3:Perl版本】删除Map中Value重复的记录,并且只保留Key最小的那条记录
icemouse210写了一个Perl版本的,发挥了脚本高度封装的优势。我把代码贴出来,供大家参考分享。
#!/user/bin/perl -w use English; use strict; use warnings; my %test_hash=( "A" => '1', "B" => '2', "C" => "2", "D" => "3", "E" => '3', ); my @keys = keys %test_hash; my %count = (); my @unique_keys = grep { ++$count{$test_hash{$_}} < 2; } sort @keys; foreach my $k (@unique_keys) { print "$k => $test_hash{$k}\n"; }
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。