Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

get keys using values in hash.

by thangappan (Initiate)
on Nov 22, 2008 at 08:54 UTC ( #725312=perlquestion: print w/ replies, xml ) Need Help??
thangappan has asked for the wisdom of the Perl Monks concerning the following question:

Normally in Perl,we can get values using keys as my $value = $hash{$keys} # It gives value of $key.Can any one explain how can I get keys using hash in Perl.Is there any way?

Comment on get keys using values in hash.
Re: get keys using values in hash.
by ccn (Vicar) on Nov 22, 2008 at 09:10 UTC
    You can do it somehow. If %rev = reverse %hash; than $rev{$value} gives a key. But it works not for all cases.

    Note that keys are unique but values can be not unique. So if different keys have the same value how do you want to reverse them?

Re: get keys using values in hash.
by GrandFather (Cardinal) on Nov 22, 2008 at 09:10 UTC

    Do you mean "Given a value, how can I find the key?". If so the short answer is: "Probably you can't".

    The longer answer is that keys are unique for any given hash but values are not. For example a hash may contain the following key => value pairs:

    apple => red ball => red lemon => yellow lime => green grass => green

    The keys are unique, but the values (colours) are not. You can not ask for the single green object because there is more than one.

    If there were a one to one mapping (keys and values unique) then you could generate a second hash using the first hash's values as keys and the first hash's keys as values - you would then have a reverse lookup.

    If however you are asking "How do I get a list of the keys", the answer is trivial: keys.


    Perl reduces RSI - it saves typing
Re: get keys using values in hash.
by linuxer (Deacon) on Nov 22, 2008 at 11:45 UTC

    You could try something like this:

    #!/usr/bin/perl -l # vi:ts=4 sw=4 et: use strict; use warnings; my %hash = ( apple => 'red', ball => 'red', lemon => 'yellow', lime => 'green', grass => 'green', ); my $search = 'green'; # get all keys, which have $search as value my @keys = grep { $hash{$_} eq $search } keys %hash; print "@keys";
Hash Inversion
by LanX (Canon) on Nov 22, 2008 at 20:22 UTC
    you mean plural? all keys per value?
    use strict; use warnings; use Data::Dumper; my %hash = ( apple => 'red', ball => 'red', lemon => 'yellow', lime => 'green', grass => 'green', ); my %rev; #= version 1 %rev=(); for my $value (values %hash) { $rev{$value}=[ grep { $hash{$_} eq $value } keys %hash ]; } print Dumper \%rev; #= version 2 %rev=(); while (my ($k,$v) = each %hash) { push @{ $rev{$v} }, $k ; } print Dumper \%rev; #= version 2b # not really shorter under strict ... %rev=(); my ($k,$v); push @{ $rev{$v} } , $k while ( ($k,$v) = each %hash); print Dumper \%rev; #= version 2c # hmm maybe finally a good application of builtin pkgvars $a and $b ; +) # VIVA LA AUTOVIVICACION! 8 ) %rev=(); push @{ $rev{$b} } , $a while ( ($a,$b) = each %hash); print Dumper \%rev; __END__ #OUTPUT $VAR1 = { 'green' => [ 'grass', 'lime' ], 'red' => [ 'apple', 'ball' ], 'yellow' => [ 'lemon' ] }; ...
    I'm sure there must be a modul doing this, but I couldn't find it ... at least in core-moduls ...

    Cheers Rolf

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://725312]
Approved by GrandFather
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (8)
As of 2014-12-25 02:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (159 votes), past polls