关于hash的值与关键字的问题

ericson114

UID: 22138
帖子: 75
积分: 172
在线时间: 8 小时

1^# ericson114 发表于 2008-02-26 21:58

关于hash的值与关键字的问题

因为hash中关键字是唯一的，值可以是重复的
那么能否做到，输入一个值，得出好几个hash的关键字呢？
请教大侠们。。。//bow

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

2^# churchmice 发表于 2008-02-26 22:30

当然可以
foreach (keys %hash){
print if $hash{$_} eq $your_desired_value;
}

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

3^# mouse.rice 发表于 2008-02-26 22:30

不行

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

4^# churchmice 发表于 2008-02-26 22:47

QUOTE:

原帖由 mouse.rice 于 2008-2-26 22:30 发表
不行

really?
Show your output

可能是最后没有换行所以看不清吧
可以用
print "$_\n" 替换上面的print ;

类似下面的code

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use warnings;
my %hash = ( "a" => "c",
         "b" => "d",
         "c" => "c",
         );
my $value = shift;
foreach(keys %hash){
print "$_\n" if $hash{$_} eq $value;
}

QUOTE:

<lig@other-server:~/chinaunix>$ ./reverse a
<lig@other-server:~/chinaunix>$ ./reverse c
c
a
<lig@other-server:~/chinaunix>$ ./reverse d
b

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

5^# churchmice 发表于 2008-02-26 22:49

或者简单点可以用grep

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use warnings;
my %hash = ( "a" => "c",
         "b" => "d",
         "c" => "c",
         );
my $value = shift;
my @match = grep  $hash{$_} eq $value , keys %hash;
print "@match\n";

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

6^# churchmice 发表于 2008-02-26 22:51

发现我最近活得真是太无聊了

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

7^# mouse.rice 发表于 2008-02-27 08:04

理解错了LZ的意思～

ericson114

UID: 22138
帖子: 75
积分: 172
在线时间: 8 小时

8^# ericson114 发表于 2008-02-27 09:51

谢谢了，受教了~~