检索动态哈希的密钥

Question

如何从动态哈希中检索“密钥”？

代码示例：

sub HASH($){ 
    my %hash; 
    my $pass = shift; 
    open (my $file, '<', "infofile") || die "No such file or dir\n"; 
    %hash=map split, <$file>; 
    return $hash{$pass}; 
} 

我infofile看起来是这样的：

user passwd 
raid 12345 

如果发现用户的代码返回的密码。我怎样才能返回用户名？

Answer 1

如果添加（用于调试）哈希的打印，

open (my $file, '<', "infofile") || die "No such file or dir\n"; 
%hash=map split, <$file>; 

for (keys %hash) { 
    print "$_: $hash{$_}\n"; 
} 

您将看到：

raid: 12345 
user: passwd 

因此我认为，你的变量$pass实际上是用户名，和return $pass;将返回用户名。我无法想象这就是你想要的。另一方面，找到与给定密码相对应的用户听起来也不太可能。

Answer 2

sub HASH($){ 
my %hash; 
my $pass = shift; 
open (my $file, '<', "infofile") || die "No such file or dir\n"; 
%hash=map split, <$file>; 
my ($user,$selecteduser); 
    foreach $user (keys %hash){ 
    $selecteduser = $user if $hash{$user} eq $pass; 
    } 
return $selecteduser; 
}