Roll your eyes and move along, nothing else to see here.

#!/usr/bin/perl STDOUT ; { END { BEGIN } ; BEGIN { STDOUT } ; STDOUT ; STDIN ; } { FINISH ; END { print "hacker," } END ; STDOUT() ; BEGIN ; OK ; sub ::END { print " " } sub SDTOUT { local $_ = "@_" ; SUB ; BUS (@_) ; SDINT } sub BUS ($;) { print @_ } } ; sub print { print } sub STDOUT { print "Just" } { { BEGIN { $ SUB = sub { print @_ ; 0 } } ; sub SUB { END ; STDERR ; SUB ; print } $_ = $" ; } END { {SUB &&& $SUB (another) ||& print ; Perl ; STDIN ; Perl ; SDTOUT Perl ; sub STDIN { } ; } } } { *BEING = BEGIN } { END } STDERR ;

(and he wanders off to bed...)

Comment on STDOUT of here
Download Code
Re: STDOUT of here
by jdalbec (Deacon) on Mar 25, 2005 at 04:53 UTC
Re: STDOUT of here
by starbolin (Hermit) on Mar 25, 2005 at 17:10 UTC

    My eyes rolled like two slot machine wheels. Great obfu!

    s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}