Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

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

by jeffa (Bishop)
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"

Replies are listed 'Best First'.
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 chanting in the Monastery: (8)
As of 2016-10-01 19:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?






    Results (6 votes). Check out past polls.