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
Replies are listed 'Best First'.
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 romping around the Monastery: (12)
As of 2015-07-28 16:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (258 votes), past polls