在foreach循环中用Perl中的值打印出相关的键

Question

如果值满足一定的条件，我试图打印出哈希键。但是，如果满足值条件，我不确定如何访问散列键。这是我的代码：

foreach my $x (values %hash){ 
    if ($x > $ARGV[1]){ 
     $counter = $counter + 1 
     print "keys %hash\n" 
    } 
} 
print "$counter\n" 

Answer 1

当您循环使用这些值时，您无法访问该密钥。

for my $key (keys %hash) { 
    if ($hash{$key} > $ARGV[1]) { 
     $counter = $counter + 1; 
     print "$key\n"; 
    } 
} 
print "$counter\n"; 

或

keys %hash; # reset iterator 
while (my ($key, $value) = each %hash) { 
    if ($value > $ARGV[1]) { 
     $counter = $counter + 1; 
     print "$key\n"; 
    } 
} 
print "$counter\n"; 

Answer 2

，你不能访问给定其价值的哈希元的密钥。毕竟，多个键可能具有相同的值。但你可以依靠Perl为您提供的键的顺序与值相同。所以，你可以写这样的事情

use strict; 
use warnings; 

my @keys = keys %hash; 
my @vals = values %hash; 
my $count = 0; 

for my $val (@values) { 
    my $key = shift @keys; 
    if ($val > $ARGV[1]) { 
     ++$count; 
     print $key, "\n"; 
    } 
} 

print "$count\n"; 

但是，这将是更好的选择使用while循环与each同时

while (my ($key, $val) = each %hash) { 
    if ($val > $ARGV[1]) { 
     ++$count; 
     print $key, "\n"; 
    } 
} 

收集两个键和值