免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 3401 | 回复: 3

如何通过%hash的$values求$key?求教! [复制链接]

论坛徽章:
0
发表于 2007-12-14 17:35 |显示全部楼层
题目:将下列资料建立一个杂凑:
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,
);
----------------------------------期待您的指教,谢谢!

论坛徽章:
23
15-16赛季CBA联赛之吉林
日期:2017-12-21 16:39:27白羊座
日期:2014-10-27 11:14:37申猴
日期:2014-10-23 08:36:23金牛座
日期:2014-09-30 08:26:49午马
日期:2014-09-29 09:40:16射手座
日期:2014-11-25 08:56:112015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:49:0315-16赛季CBA联赛之山东
日期:2017-12-21 16:39:1915-16赛季CBA联赛之广东
日期:2016-01-19 13:33:372015亚冠之山东鲁能
日期:2015-10-13 09:39:062015亚冠之西悉尼流浪者
日期:2015-09-21 08:27:57
发表于 2007-12-14 17:57 |显示全部楼层
#!/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";
        }
}

论坛徽章:
0
发表于 2007-12-14 18:02 |显示全部楼层
.........
my @k=grep{$_>1980} keys %hash;
变成
my @k=grep{ $hash{$_} > 1980 } keys %hash;
不就行了

论坛徽章:
0
发表于 2007-12-14 20:29 |显示全部楼层
谢谢!想起来了这种写法:
foreach $key (keys %hash) {}
看来得多写才行啊~
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

DTCC2020中国数据库技术大会

【架构革新 高效可控】2020年12月21日-23日第十一届中国数据库技术大会将在北京隆重召开。

大会以“架构革新 高效可控”为主题,设置2大主会场,20+技术专场,将邀请超百位行业专家,重点围绕数据架构、AI与大数据、传统企业数据库实践和国产开源数据库等内容展开分享和探讨,为广大数据领域从业人士提供一场年度盛会和交流平台。
http://dtcc.it168.com


大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP