> -----Original Message-----
> From: Dave McGuire [mailto:mcguire_at_neurotica.com]
> Oh Christ. Yes, progress...with Perl...to completely unreadable,
> unmaintainable, unbearably slow code. No, thanks.
You'll appreciate this message which I sent to a few people on Friday.
Chris
Christopher Smith, Perl Developer
Amdocs - Champaign, IL
/usr/bin/perl -e '
print((~"\x95\xc4\xe3"^"Just Another Perl Hacker.")."\x08!\n");
'
----------
Well, I had a moment of boredom today, and in the interest of science,
I decided to see whether output from the system random number generator
might make a valid Perl script.
Session follows:
webserv:~/sla_html/cgi-bin$ dd if=/dev/random of=./test bs=1024 count=1024
0+1024 records in
0+1024 records out
webserv:~/sla_html/cgi-bin$ perl -c test
Unrecognized character \271 at test line 1.
syntax error at test2 line 1, near "/."
Bareword found where operator expected at test2 line 4, near ")c"
(Missing operator before c?)
In string, _at_k now must be written as \@k at test2 line 6, near "I
p&`}_at_
\.%+
Kj&D
:X" j
Bt1_at_k"
Bareword found where operator expected at test2 line 13, near "?xVr"
(Might be a runaway multi-line ?? string starting on line 6)
(Missing operator before Vr?)
Bareword found where operator expected at test2 line 14, near "%^g"
(Missing operator before g?)
Can't find string terminator "`" anywhere before EOF at test2 line 15.
<Looks like I'll have to repair some syntax errors on the part of the
random number generator...>
<After correcting some "obvious syntax errors"...>
webserv:~/sla_html/cgi-bin$ perl -c test2
test2 syntax OK
webserv:~/sla_html/cgi-bin$ cat test2
#RW/.Z
eF9g
#j1G=qj
#)c.Q
#/c!*B_/;
#h^?I
p(_at_&)
.%+;
Kj;
#X" j"
Bt(_at_k);
TON;
\?xVr?;
#E%g;
Nb_('P');
~cgu
b^O^
s/$T//;
$S3X=vU
gx/A/
<Now that's pretty impressive>
Chris
Received on Mon Apr 22 2002 - 12:19:26 BST