如何通过%hash的$values求$key？求教！

windows.li

题目：将下列资料建立一个杂凑：
John => 1982.1.5
Paul => 1978.11.3
Lee => 1976.3.2
Mary => 1980.6.23
印出1980年以后出生的人跟他们的生日。

程序：

#!/usr/bin/perl use strict; my %hash = (            '1982.1.5'=>'John',            '1978.11.3'=>'Paul',            '1976.3.2'=>'Lee',            '1980.6.23'=>'Mary',             ); my @k=grep{$_>1980} keys %hash; foreach(@k){   print $hash{$_},":",$_,"\n"; }

我晓得从$key求$values,不晓得知道$values的情况下，如何求$key。所以我把%hash反过来表示。
请问，如何我的%hash是如下表示，那么程序该如何写？
%hash=(
'John' => 1982.1.5,
'Paul' => 1978.11.3,
'Lee' => 1976.3.2,
'Mary' => 1980.6.23,
);
----------------------------------期待您的指教，谢谢！

ly5066113

#!/bin/perl  -w
%hash=(
        'John' => '1982.1.5',
        'Paul' => '1978.11.3',
        'Lee' => '1976.3.2',
        'Mary' => '1980.6.23',
);

foreach $key (keys %hash) {
        if ($hash{$key} gt 1980) {
                print "$key $hash{$key}\n";
        }
}

Nosferatu

.........
my @k=grep{$_>1980} keys %hash;
变成
my @k=grep{ $hash{$_} > 1980 } keys %hash;
不就行了

windows.li

谢谢！想起来了这种写法：
foreach $key (keys %hash) ｛｝
看来得多写才行啊～