Beefy Boxes and Bandwidth Generously Provided by pair Networks DiBona
The stupid question is the question not asked
 
PerlMonks  

Clean up and shimmer

by davido (Archbishop)
on Feb 03, 2005 at 04:44 UTC ( #427517=obfuscated: print w/ replies, xml ) Need Help??

I hope someone has as much fun unraveling this as I had creating it.

@s{keys%::}=();bless{};;*{(sort grep{!exists$s{$_}}keys%::) [1]}=sub{$n=0.5;{print"\r",map{rand(100)<=$p?$_:' '}split// ,"Just another Perl hacker,";$p<0&&$n<1&&last;$n*=$p>110?-1 :1;$p+=$n;select$q,$q,$q,.04;redo}print$/};${bless\$|}-=1

One hint is to figure out the order in which things really happen, and why.

Updated: Took diotalevi's newline suggestion. ...thanks.
...and thanks tye for the alternative to bless\$|++.


Dave

Comment on Clean up and shimmer
Select or Download Code
Re: Clean up and shimmer
by Tanktalus (Canon) on Feb 03, 2005 at 05:05 UTC

    I need to figure out how to get that into my code at work. Imagine the damage it'd do to the poor guys who run my code with a pipe through tee... :-)

      D'oh, it sure made a mess in a buffer after running it with shell-command under emacs :)
      Happy to report it works in activestate perl under cmd.exe and cygwin perl under bash.
      Niice work!
Re: Clean up and shimmer
by diotalevi (Canon) on Feb 03, 2005 at 05:29 UTC
    Fun! Not only was it pleasant to read, getting to execute it later was just cake! It would be nice if you printed a single \n at completion.
Re: Clean up and shimmer
by bobf (Monsignor) on Feb 03, 2005 at 08:06 UTC

    Very cool! It intrigued me enough to try to figure out how it worked - I hope I got close (this is my first attempt at a de-obfuscation):

    Spoiler in readmore!

      Good job! You were pretty much right on target.

      To answer a few questions...


      Dave

Re: Clean up and shimmer
by sh1tn (Priest) on Feb 04, 2005 at 00:18 UTC
    Very good! :)
Re: Clean up and shimmer
by wolfger (Deacon) on Feb 04, 2005 at 16:48 UTC

    That is just too beautiful for words. I wish I could ++ this more than once...


    --
    Linux, sci-fi, and Nat Torkington, all at Penguicon 3.0
    perl -e 'print(map(chr,(0x4a,0x41,0x50,0x48,0xa)))'

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://427517]
Approved by Tanktalus
Front-paged by Tanktalus
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (11)
As of 2014-04-23 23:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (556 votes), past polls