in reply to One out of three ain't bad
Here is a simple example using the shift operator.
JamesNC
my $x = -2; my $y = 0; my $z = 1; my $t = 1; for( $x,$y,$z){ $t = $t<<1 if $_; } print "none set" if $t == 1; print "only one set" if $t == 2; print "more than 1 set" if $t > 2;
JamesNC
In Section
Seekers of Perl Wisdom