-----Original Message-----
From: Dave McGuire [mailto:mcguire@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, @k now must be written as \@k at test2 line 6, near "I
p&`}@
\.%+
Kj&D
:X" j
Bt1@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(@&)
.%+;
Kj;
#X" j"
Bt(@k);
TON;
\?xVr?;
#E%g;
Nb_('P');
~cgu
b^O^
s/$T//;
$S3X=vU
gx/A/
<Now that's pretty impressive>
Chris