YAOE! (Yet Another Obfuscated Entry)

Here's my first attempt, please don't laugh.

@f=split(//,shift||"Just Another Perl Hacker"); sub p{print
@_};while(){for($i=0;$i<@f;$i++){$j=6000;while(#$j-- if($slow)
--$j){p("."=>chr(8));}p$f[$i];}p"\n";push@f,shift@f;}
[download]

update: err, copy error, sorry... it works now

-- ar0n

Comment on YAOE! (Yet Another Obfuscated Entry) Download Code

Replies are listed 'Best First'.
RE: YAOE! (Yet Another Obfuscated Entry) by buzzcutbuddha (Chaplain) on Jun 15, 2000 at 00:03 UTC
It worked great for me, and I love it! Awesome! Awesome! Awesome! What a cool JAPH. kudos to you.	[reply]
RE: YAOE! (Yet Another Obfuscated Entry) by mcwee (Pilgrim) on Jun 14, 2000 at 01:11 UTC
It worked fine when I tried it and it's very, very neat-- well worth the cutting & pasting. An excellent first attempt, ar0n-- gets my vote. Bravo! (ps: I really like that it outputs in a sort of matrix-- a nice change from the usual single line output. And the pacing as it runs is nice-- I really like that it takes a few moments for the whole effect to be evident.) The Autonomic Pilot; it's FunkyTown, babe.	[reply]
RE: YAOE! (Yet Another Obfuscated Entry) by Apterigo (Scribe) on Jun 13, 2000 at 00:39 UTC
Yikes, I get the follow error message when I run it: Missing right bracket at file.pl line 3, at end of line Syntax error at file.pl line 3, at EOF Execution of file.pl aborted due to compilation errors. I dunno, maybe I did something wrong :) Apterigo	[reply]
RE: RE: YAOE! (Yet Another Obfuscated Entry) by Ozymandias (Hermit) on Jun 13, 2000 at 01:19 UTC
Adding an extra right bracket (}) allows the code to execute, but it doesn't output anything legible - just a long string of letters. Granted, all the letters are from the set that makes up "Just Another Perl Hacker" but they aren't in order. - Ozymandias	[reply]