On Thursday 15 April 2004 11:41, John W. Krahn wrote:
On Thursday 15 April 2004 11:22, Jayakumar Rajagopal wrote:
$a=100; $b=200; ($a=3 && $b=6 ) if ( 1 == 1 ); print " $a $b \n";
Output : 6 6
OR my syntax is wrong ?
You have a precedence problem. Your expression evaluates as:
$ perl -MO=Deparse,-p -e'($a=3 && $b=6 ) if ( 1 == 1 );'
($a = ($b = 6));
-e syntax OK
You need to either add parentheses or use the lower precedence 'and' operator:
( ($a = 3) && ($b = 6) ) if ( 1 == 1 );
Or:
( $a = 3 and $b = 6 ) if ( 1 == 1 );
Or you could use the comma operator:
( $a = 3, $b = 6 ) if ( 1 == 1 );
I'm as guilty as any at trying to write "clever" code like above, but it really doesn't pay off in the long run. It's much easier to read and less ambiguous to spell it out the old fashioned way:
if (1 == 1) {
$a = 3;
$b = 6;
}I realize the examples above are contrived, but the point is still valid: try to avoid too much clever code. I still have trouble avoiding that temptation; perl makes it so easy.
Randy.
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
