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

Oh that's what I want. Would @matches have $_ info? or the value of $input{$_} ?


Thanks!

@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

grep would give you 'info1', for example. If you want $input{$_}, use map instead.

- tye        

if (my $matched = $input{info1} || $input{info2} || $input{info3}) {
       print "information is valid for $matched."
}
else {
       print "none of the conditions were met\n";
}
[download]

Just tried this simple script:

use strict;
use warnings;

my (%info, $quack);

# If this is commented out, "no quack"
$info{baz} = 3;

# Assignment intentional in conditional
if ($quack = $info{foo} or $quack = $info{bar} or $quack = $info{baz})
+ {
    print "Quack is $quack\n";
}
else {
    print "No quack\n";
}
[download]

Prints "Quack is 3".

well rather than getting Quack is 3, I want it to say Quack = baz. Is that possible?

Then it looks like wind's reply is more along the lines of what you want.