Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

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.

Replies are listed 'Best First'.
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.



Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://434085]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (4)
As of 2018-04-26 06:02 GMT
Find Nodes?
    Voting Booth?