Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
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 contemplating the Monastery: (10)
As of 2015-07-04 16:40 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 (60 votes), past polls