Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

(jeffa) Re: Predicting the end of times...

by jeffa (Chancellor)
on Jul 06, 2002 at 17:19 UTC ( #179851=note: print w/ replies, xml ) Need Help??


in reply to Predicting the end of times...

Well, if we are all going to hell in a handbasket, i am going with a golfed one-liner!!

perl -le'$x+=ord,print"$_ - ",ord for split//,HOLYBIBLE;print"Total: $ +x"'

jeffa

jeffa suddenly notices cumulonimbus clouds forming over him "uh-oh"


Comment on (jeffa) Re: Predicting the end of times...
Download Code
Re: (jeffa) Re: Predicting the end of times...
by AcidHawk (Vicar) on Jul 08, 2002 at 14:31 UTC
    Why do I get this when I try your one liner..?
    Can't find string terminator "'" anywhere before EOF at -e line 1.
    -----
    Of all the things I've lost in my life, its my mind I miss the most.
      Are you running this on Win32? If so, try this one (which will not work in a Unix shell):
      perl -le"$x+=ord,print qq|$_ - |,ord for split//,HOLYBIBLE;print qq|To +tal: $x|"
      The problem is that Win32 wants the whole expression wrapped in double quotes (not single quotes), and Unix shells will interpolate any tokens in double quotes before Perl gets a chance to execute. This results in Yet Another Platform Dependance for Perl one-liners that contain dollar signs. You can escape the quotes, but that gets ugly (uglier?) real quick. For example, this should work on both platforms (but since i don't have a Win32 box available, i can't test it on that platform):
      perl -le"\$x+=ord,print\"\$_ - \",ord for split//,HOLYBIBLE;print\"Tot +al: \$x\""
      Update - nope, the previous one only works on Unix shells, Win32 doesn't need (or like) the escaped dollar signs. Thanks for testing this for me, BlueBlazerRegular and BrowserUk. :)

      jeffa

      L-LL-L--L-LL-L--L-LL-L--
      -R--R-RR-R--R-RR-R--R-RR
      B--B--B--B--B--B--B--B--
      H---H---H---H---H---H---
      (the triplet paradiddle with high-hat)
      

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://179851]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (8)
As of 2014-12-27 16:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (177 votes), past polls