Re^3: a simple question...

@matches would contain the keys of the hash that matched. If all you care about are the values, then use this construct:

if (my @values = grep {$_} @input{qw(info1 info2 info3)}) {
       print "Matched values: @values";
}
else {
       print "none of the conditions were met\n";
}
[download]

But then again, you could continue to match keys, and use a slice to access the values inside the if. It all depends on what your needs are.

if (my @matches = grep {$input{$_}} qw(info1 info2 info3)) {
       print "Matched keys: @matches";
       print "Matched values: @input{@matches}";
}
else {
       print "none of the conditions were met\n";
}
[download]

- Miller

Comment on Re^3: a simple question... Select or Download Code

Replies are listed 'Best First'.
Re^4: a simple question... by Nkuvu (Priest) on Nov 28, 2007 at 18:07 UTC
Is there any way to terminate the grep upon a successful match? Not that I think it matters for only three elements, more out of curiosity (and lack of much experience with grep).	[reply]
Re^5: a simple question... by wind (Priest) on Nov 28, 2007 at 18:18 UTC
Yes. Use the List::Util first function. `use List::Util qw(first); if (my $match = first {$input{$_}} qw(info1 info2 info3)) { print "First Matched key: $match"; print "First Matched value: $input{$match}"; } else { print "none of the conditions were met\n"; }` [download] - Miller	[reply] [d/l]