Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

typojaph

by Anonymous Monk
on Sep 21, 2003 at 18:38 UTC ( #293017=obfuscated: print w/replies, xml ) Need Help??

With all the animated stuff posted lately, I decided to chip in. It's only been tested on Linux, as that's all I really have access to right now, so tell me if it's broken on something else.

sub'_{select$_[3],$_[2],$_[1],$_[0]}$:=?y??y::::q;:;;$:.=qq:-:; @%=map{$:.$_}qw:) ) ( / o P P:;sub'__{@_=$c->(@:);while($_=pop) {unless($*){$*=length;if(m+^$"*$+i){_$|if(length$&<$-)}else{$.= shift@%}}if(/ /){pop@|for(length..++$*);push@|,$,for(length..-- $*)}print+chr$:;push@|,chop;print for@|;substr($.,0,1)=q$;$if$. =~/P/;print$"x(27-@|).$..$"x5;_$=/1.e3;length&&redo;$**=length; @|=(split($\,join$",split/\s/,join+q,,,@|),$,=$");next if@_}}$c =sub{map{join$!,map{chr hex}/../g}@_};++$|;$:=2*@%-$|;$-=47%$:; @:=qw;2c72656b636168 6c726550 2020202020202020 61426c6175736956 2020202020 4c4f424f43 20202020 6176614a 726568746f6e61 7473754a ;;__;print+chr@:

Enjoy,

Brandan L.

Replies are listed 'Best First'.
Re: typojaph
by b-funk (Sexton) on Sep 21, 2003 at 18:41 UTC
    Whoops. Forgot I wasn't logged in when I posted that.

    Brandan L. again
Re: typojaph
by jonadab (Parson) on Sep 21, 2003 at 20:38 UTC

    Interesting effect. For the record, it works on ActiveState Perl, not only under cygwin but even in the WinMe command prompt.


    $;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
Re: typojaph
by OverlordQ (Hermit) on Sep 26, 2003 at 01:31 UTC
    C:\Perl\bin\scripts>perl test.pl Just another Perl hacker, ;-P
    This is perl, v5.8.0 built for MSWin32-x86-multi-thread
    Works on Win-Perl, nicely done :) *care to explain it now? lol*
      I thought that was your job, but I won't pass up an opportunity to talk about myself.


      Brandan L.
Re: typojaph
by sandfly (Beadle) on Sep 25, 2003 at 19:56 UTC
    Very nice. I did a double-take the first time it ran.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://293017]
Approved by jeffa
Front-paged by jeffa
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2018-06-21 05:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?



    Results (117 votes). Check out past polls.

    Notices?