Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Japhaholic

by BooK (Curate)
on Feb 09, 2001 at 15:40 UTC ( #57369=note: print w/ replies, xml ) Need Help??


in reply to Japhaholic

You call this obfuscation?

You make not use of context, you explicitely use $_, @_, you never even try to hide something... It's so clear, you just read it and understand the whole thing!

I showed it to a non-Perl programmer, explaining what split, etc did... I mean, we didn't even need to run the stuff to know what it did and how!

Having all lines of the same length is not enough to qualify, in my view... Except if you lines are 4 characters long.

Update: So that people stop downvoting me, here my shorter (but not more obfuscated) version:

print+map{pack'H*' ,$_}('4a7573742041 6e6f74686572205065 726c204861636b6572 0a0d'=~m/(..)/g)

It doesn't read its own source code, makes use of the fact that . doesn't match newlines, chains everything in one statement, etc...


Comment on Re: Japhaholic
Download Code
Re: Re: Japhaholic
by dsb (Chaplain) on Feb 09, 2001 at 19:09 UTC
    Tell me how you really feel why don't you. :) - kel -

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (9)
As of 2014-10-02 04:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (49 votes), past polls