Re: a simple question...

[Nkuvu]

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";
}

Prints "Quack is 3".

[Anonymous Monk]

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

[Nkuvu]

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

[Anonymous Monk]

Yes it is. Thanks wind and everyone for help!!