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

(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 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. :)


      (the triplet paradiddle with high-hat)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://179851]
[dazz]: Hi I have grabbed an image from an IP camera with Image::Grab. I then want to pass that image object to a subroutine where I do a read-only test on the image with Image:Magick.
[dazz]: How do I pass an image object to a subroutine and then apply a Image::Magick a read-only method to the image object???
[dazz]: Also, I want to use Image::Magick to annotate and composite (not in a sub). How do I take a Image::Grab object and apply Image::Magick write methods to it??
[dazz]: At present, I am saving the Image::Grab image to disk, then creating a new Image::Magick object that reads the disk file.

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (6)
As of 2017-03-27 07:40 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (317 votes). Check out past polls.