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

modern (perl) art

by marko (Beadle)
on Jun 27, 2000 at 08:06 UTC ( #19960=obfuscated: print w/ replies, xml ) Need Help??

# #my #intro #isn't this #bit of code a #little bit obscure? sub www(){print"ERROR";#, print "opening";print "file!";exit(0);} open(hF, ">echo.txt") or www;print "enter something :"; my $inz =<STDIN>;if (length($inz)> 20){ print "Error! You en" ;print "tered too"; print "ma";##',print "ny characters";#,########' exit(0);}if (length ($inz)< 3){print "Error!"; print "Y";print "ou entered"; print "too few characters"; exit(0);}print $inz;print (hF $inz);close (hF);###' #boy this is getting to # be fun, why write #readable code #when you can #do this? #20 lns #fin #!

Comment on modern (perl) art
Download Code
RE: modern (perl) art
by ZZamboni (Curate) on Jun 27, 2000 at 18:57 UTC
    This came out garbled. Next time, use <code> tags instead of <pre> to have it display properly. Here it is:
    # #my #intro #isn't this #bit of code a #little bit obscure? sub www(){print"ERROR";#, print "opening";print "file!";exit(0);} open(hF, ">echo.txt") or www;print "enter something :"; my $inz =<STDIN>;if (length($inz)> 20){ print "Error! You en" ;print "tered too"; print "ma";##',print "ny characters";#,########' exit(0);}if (length ($inz)< 3){print "Error!"; print "Y";print "ou entered"; print "too few characters"; exit(0);}print $inz;print (hF $inz);close (hF);###' #boy this is getting to # be fun, why write #readable code #when you can #do this? #20 lns #fin #!

    --ZZamboni

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2015-04-25 11:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Who makes your decisions?







    Results (477 votes), past polls