http://www.perlmonks.org?node_id=17691

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;}

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

-- ar0n

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.
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
      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

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.