Re^2: Multiple Conditional Statements

in reply to Re: Multiple Conditional Statements
in thread Multiple Conditional Statements

There can be problem with string vs numeric comparison:

use v5.10;
( $RB1, $RB2, $WR1, $WR2, $TE1 ) = (1,2, 3, "05", 5);

if( keys %{ { map{ $_,$_ } $RB1, $RB2, $WR1, $WR2, $TE1 } } == 5 ) { 
    say 'all different';
} 
else { 
    say 'some same' 
};;

prints "all different"
[download]

Comment on Re^2: Multiple Conditional Statements Download Code

Replies are listed 'Best First'.
Re^3: Multiple Conditional Statements by BrowserUk (Patriarch) on Sep 11, 2013 at 11:21 UTC
For strictly numeric comparison add 0+: `if( keys %{ { map{ 0+$_,$_ } $RB1, $RB2, $WR1, $WR2, $TE1 } } == 5 ) { + say 'all different' } else { say 'some same' };;` [download] With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l]
Re^4: Multiple Conditional Statements by vsespb (Chaplain) on Sep 11, 2013 at 11:26 UTC
Yes, that would work.	[reply]
Re^3: Multiple Conditional Statements by BrowserUk (Patriarch) on Sep 11, 2013 at 11:18 UTC
Indeed. With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply]

In Section Seekers of Perl Wisdom