哈希怎么按value排序并取前n个的键值对？

yu34po

RT,哈希%hash,怎么排序并取前n个键值对
$hash{"a"}=1;
$hash{"b"}=2;
$hash{"c"}=21;
$hash{"d"}=4;
$hash{"e"}=13;
$hash{"f"}=12;
前3：
c 21
e 13
f 12

xiumu2280

1. my %hash = (
   
2.         a => 1,
   
3.         b => 2,
   
4.         c => 21,
   
5.         d => 4,
   
6.         e => 13,
   
7.         f => 12,
   
8. );
   
9. my @data = sort {$hash{$b} <=> $hash{$a}}keys %hash;
   
10. my $n = 2;
    
11. print "$_=>$hash{$_}\n" for @data[0..$n];

复制代码

1. c=>21
   
2. e=>13
   
3. f=>12

复制代码

justfaz

my @data = sort {$hash{$b} <=> $hash{$a} or  $a cmp $b }keys %hash

帮楼上的完善一下（考虑到值相同的情况）

huzikan

1. 
   
2. #! /usr/bin/perl
   
3. @hash{qw/a b c d e f/}=(1,2,21,4,13,12);
   
4. for (sort{$hash{$b} <=> $hash{$a}}keys %hash) {
   
5.         last if ++$n>3;
   
6.         print "$_ $hash{$_}\n";
   
7. }
   

复制代码

命令行模式

1. 
   
2. perl -e '{@hash{qw/a b c d e f/}=(1,2,21,4,13,12);print map{sprintf "$_ $hash{$_}\n"} (sort{$hash{$b} <=> $hash{$a}}keys %hash)[0..2]}';

复制代码

pitonas

大概看了一下 写的太好了
{:2_172:} 我心中一种畅快的感觉呀

MMMIX

回复 4# huzikan


    这个 for 循环里面的提前退出判断完全可以用 array slice 代替，而且使用 array slice 的话逻辑会更清晰，为嘛在一行式脚本中用了，反倒在更正式的脚本中却不用了？

huzikan

个人理解是命令行模式尽量以简洁作为前提，如果是脚本的话尽量以可读性和易理解性为前提来写，但是同时都应该考虑效率问题。至于为什么写成了这样。。是因为才学了slice的用法想练习一下，有什么说的不对的地方望指点~
回复 6# MMMIX


   

MMMIX

huzikan 发表于 2014-01-14 09:04
个人理解是命令行模式尽量以简洁作为前提，如果是脚本的话尽量以可读性和易理解性为前提来写，

这话没错。但是，最影响程序可读性的，往往不是语法，而是逻辑。像提前结束循环之类的用法，在很短的循环体之中倒是没什么影响，但是对于比较复杂的循环体来说，就会增加理解的难度，所以能避免还是避免的好。