Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
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 #!

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?
[stevieb]: Corion: the problem with that is the 2.36 represents the underlying C library I've wrapped, which is why I want to use incrementals after the real version number. I've emailed modules@ to see if they can expedite the process for me...
[stevieb]: ...as normally, it takes three days to delete, in case you want to change your mind

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (11)
As of 2017-01-19 15:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you watch meteor showers?




    Results (170 votes). Check out past polls.