Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
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 examining the Monastery: (9)
As of 2014-09-23 20:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (241 votes), past polls