Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: My First JAPH

by cchampion (Curate)
on Sep 11, 2004 at 19:30 UTC ( #390306=note: print w/ replies, xml ) Need Help??


in reply to My First JAPH

What about this?

#!/usr/bin/perl -w print pack"B*", $_ for qw( 01001010 01110101 01110011 01110100 00100000 01100001 01101110 01101111 01110100 01101000 01100101 01110010 00100000 01010000 01100101 01110010 01101100 00100000 01001000 01100001 01100011 01101011 01100101 01110010 );

Perhaps you should have a look at this node ...


Comment on Re: My First JAPH
Download Code
Re^2: My First JAPH
by Spidy (Chaplain) on Sep 11, 2004 at 19:32 UTC
    Yeah, I suppose that that works too.
      But my method is more confusing to non Perl people, which was my main goal.

      confusing does not necessarily mean obfuscated.

      To non Perl people, even normal Perl usage of map, grep and unless may elude their comprehension. Make something that may puzzle a Perl hacker, and you'll be on the right track.

      Spend some time analyzing good obfuscated nodes, as listed in my previous post.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (9)
As of 2014-12-21 11:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (104 votes), past polls