Question

perl 已知一哈希表，如何求得各值重复的次数并排序，如：

%info = {
a = 1,
b = 1,
c = 2,
d = 3,
e = 1,
f = 2,
...
...
n = 7,
};
即如何求得这里出现最多次的是1这个值，不用管对应的键是什么。

Answer 1

%m = ('a' => 1, 'b' => 3, 'c' => 1, 'd'=> 5, 'e' => 3, 'f' => '3');
for (keys %m)
{
	if (not exists $n{$m{$_}})
	{
		$n{$m{$_}} = [];
	}
	push @{$n{$m{$_}}}, $_;
}
@r = sort{$#{$n{$b}} <=> $#{$n{$a}}} keys %n;
print "@r";

追问

谢谢你！这个问题我已经解决啦~取values建个数组再排序就好啦~我还有个问题能帮忙看下吗？谢谢！