#!/usr/bin/perl -wl
use strict;
my @hashes = ( { a => 1}, { b => 2}, { c => 3});
my %hash = %{ ( grep { haass($_) } @hashes )[0] };
print for keys %hash; 
sub haass {
   my $r = shift;
   exists $r->{c} ?  $r : ();
}
__END__
[download]

 

______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

I wonder if I can get the hash instead of the hashref with a single line.

This is Perl. You can :)

First, let me state that %hash = $$hashref isn't going to do what you want. You probably meant %hash = %$hashref there. This can also be written as %hash = %{ $hashref } which brings me to:

%hash = %{ grep { has_the_right_primary_key($_) } @hashes };
[download]

%hash = %{ ( grep hash_the_right_primary_key($_), @hashes )[0] };
[download]

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

Thanks a lot, this is very helpful and you are right,  %hash = %$hashref was what I have meant.
It is also right, that looking up in a hash is always better and more perlish, but in my case the "primary key" is only primary at that moment.

Regards...

This assumes that there is at least one:

my %hash = %{(grep {exists $_->{'foo'}} @hashes)[0]};
[download]

Your code is incorrect in both lines. In the first, $hashref will be set to the number of matches, and you need %hash=%$hashref in the second. Recommend tye's References quick reference to help with errors like that

Perl hashes don't really have 'primary' keys in the way that databases do.

After Compline,
Zaxo

my %hash = %{(grep {exists $_ -> {foo}} @hashes) [0] || {}};
[download]

And then it even works if there's no match.

Abigail