如何得到hash中value大于某一值的key

yilongyansha

%hash = (
"1"=>"23",
"2"=>"61",
"3"=>"159",
"4"=>"178",
"5"=>"68",
"6"=>"43",
"7"=>"267",
"8"=>"59",
"9"=>"163",
"10"=>"10",
"11"=>"91"
)

对hash的键排序，如何找出哈希表中value大于100的最小的key和最大的key，如上面的hash中得到的first_key=3，last_key=9,
找first_key比较好找，我写的代码如下：

1. use strict;
   
2. use warnings;
   
3. 
   
4. my %hash = (
   
5. "1"=>"23",
   
6. "2"=>"61",
   
7. "3"=>"159",
   
8. "4"=>"178",
   
9. "5"=>"68",
   
10. "6"=>"43",
    
11. "7"=>"267",
    
12. "8"=>"59",
    
13. "9"=>"163",
    
14. "10"=>"10",
    
15. "11"=>"91"
    
16. );
    
17. 
    
18. my ($first_key,$last_key);
    
19. foreach my $key (sort keys %hash) {
    
20.     if ($hash{$key}>100) {
    
21.         $first_key = $key;
    
22.         last;
    
23.     }
    
24. }
    
25. print $first_key,"\n";

复制代码

sunzhiguolu

回复 1# yilongyansha

foreach my $key (reverse sort keys %hash) {
    if ($hash{$key}>100) {
        $last_key = $key;
        last;
    }
}

   

iamlimeng

你可以把所有大于100的KEY放入一个数组，数组的第一个值就是第一个key，最后一个值是最后一个key。

注意sort的用法，你现在的排序可能并不是你想要的结果，默认并不是按数字大小排序的。

yilongyansha

回复 2# sunzhiguolu

写2个循环体有点麻烦

yilongyansha

回复 3# iamlimeng

好方法！

排序是不是要这样写：

1. sort { $a <=> $b} keys %hash

复制代码

sunzhiguolu

回复 4# yilongyansha

1. my ($first_key, $last_key);
   
2. foreach (sort keys %hash){
   
3.         if ($hash{$_} > 100){
   
4.                 $first_key = $_ unless (defined $first_key);
   
5.                 $last_key = $_;
   
6.         }
   
7. }
   
8. print "$first_key | $last_key\n";

复制代码

sunzhiguolu

回复 3# iamlimeng
非常感谢指点, 谢谢!

   

sunzhiguolu

回复 3# iamlimeng
明白了, 非常感谢您!

   

yilongyansha

回复 6# sunzhiguolu

没看明白
$first_key = $_ unless ($first_key);
$last_key = $_;
能解释一下这2句吗，谢谢~

sunzhiguolu

回复 9# yilongyansha
$first_key = $_ unless ($first_key); # 如果 $first_key 未定义便对其进行赋值操作
$last_key = $_; # 重复更新