Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

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
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 the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2015-12-01 05:58 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (794 votes), past polls