Re^3: improve script

Replies are listed 'Best First'.
Re^4: improve script by afoken (Chancellor) on Nov 28, 2015 at 16:53 UTC
`if ( somecondition ) { print "..."; exit; }` [download] Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply] [d/l]
Re^5: improve script by BrowserUk (Patriarch) on Nov 28, 2015 at 21:11 UTC
Or just: `print( "$1\n" ), exit if /.../;` [download] Or even: `die "$!\n" if /.../;` [download] Which seems to capture the semantics perfectly. 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". I knew I was on the right track :) In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l] [select]
Re^6: improve script by LanX (Saint) on Nov 28, 2015 at 21:50 UTC
> Which seems to capture the semantics perfectly. Yes, except it's printing to STDERR not STDOUT. That's complicating things if sh has to capture the output. Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Je suis Charlie!}	[reply]
Re^7: improve script by afoken (Chancellor) on Nov 29, 2015 at 12:02 UTC
Re^5: improve script by choroba (Cardinal) on Nov 28, 2015 at 18:58 UTC
It wouldn't print anything if STDOUT was closed, though. ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l]