Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re^2: I usually debug via...

by dmorelli (Scribe)
on Feb 24, 2005 at 14:52 UTC ( #434085=note: print w/ replies, xml ) Need Help??


in reply to Re: I usually debug via...
in thread I usually debug via...

Kevin, your sig code was nagging me. I was able to shorten it down to this:

perl -e '$a="62696c6c77667269656e6440676d61696c2e636f6d";print unpack("A",pack("H*","$1")) while ($a=~s/(^.{2})//s)'

You don't need both the m// and s///, just one s/// will do. And the block { } notation after the while isn't necessary.


Comment on Re^2: I usually debug via...
Download Code
Re^3: I usually debug via...
by anadem (Scribe) on Feb 24, 2005 at 16:23 UTC
    hmm ... superdoc's version may be shorter or whatever, but it doesn't run on windoze due to a syntax error. Kevin's has the advantage of actually working.
      Hm. Could be that cmd.exe shell and quoting. Maybe this one will work:

      perl -e '$a=qq/447564652c2067657420726964206f662057696e646f 7773/;print (chr hex $1) while ($a=~s/(^.{2})//)'

      Or with double-quotes:

      perl -e "$a=qq/447564652c2067657420726964206f662057696e646f 7773/;print (chr hex $1) while ($a=~s/(^.{2})//)"
      I don't have access to any Windows machine at all to try it on.

        FWLIMBW at this late date, the former works for me on Cygwin, the latter on Strawberry Perl.

        HTH,

        planetscape

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2014-11-28 06:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (193 votes), past polls