Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

STDOUT of here

by cog (Parson)
on Mar 25, 2005 at 00:45 UTC ( #442236=obfuscated: print w/ replies, xml ) Need Help??

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}

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://442236]
Approved by Tanktalus
Front-paged by grinder
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (11)
As of 2014-10-23 18:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (127 votes), past polls