Re: strange behaviour in perl ..please explain

in reply to strange behaviour in perl ..please explain

print can take a list as an argument, thus the return value (1 ie. true) of the print"no" gets printed (comma is a list separator).
exit gets evaluated and your script exits.
The last part of your statement is evaluated first, that means that if( $var ) exit is executed first and it exits.

Update: corrected #2, thanks ikegami

--
seek $her, $from, $everywhere if exists $true{love};

Comment on Re: strange behaviour in perl ..please explain Select or Download Code

Replies are listed 'Best First'.
Re^2: strange behaviour in perl ..please explain by ikegami (Patriarch) on Jan 23, 2009 at 15:30 UTC
`exit` evaluates given expression, your `print` statement in this case and exits. No. `exit` is evaluated with no arguments in all of the OP's snippets. `print"yes",exit ,print"no" if ($var)` [download] is the same as `print( "yes", exit(), print("no") ) if ($var)` [download] That's because `print( "yes", exit( , print("no") ) ) if ($var)` [download] is illegal.	[reply] [d/l] [select]
Re^3: strange behaviour in perl ..please explain by puudeli (Pilgrim) on Jan 23, 2009 at 18:50 UTC
Ah, I stand corrected, I missed the comma :-) -- `seek $her, $from, $everywhere if exists $true{love};`	[reply] [d/l]

In Section Seekers of Perl Wisdom