vcherubini
Programmer
Has anyone seen this quote by Larry Wall?
It's written in Perl.
Copy and paste it and save it as something like quote.pl and run it. See what it says. Pretty funny. Its on the back of a shirt at
#!usr/bin/perl
@a=(Lbzjoftt, Inqbujfodf, Hvcsjt);
$b="Lbssz Wbmm";
$b =~ y/b-z/a-z/;
$c =" Tif ". @a ." hsfbu wj" . "suvft pg b qsphsbnnfs" . ":\n";$c =~y/b-y/a-z/;
print"\n\n$c ";
for($i=0; $i<@a; $i++) {
$a[$i] =~y/b-y/a-z/;
if($a[$i] eq $a[-1]) {
print "and $a[$i].";
} else {
print "$a[$i], ";
}
}
print "\n\t\t--$b\n\n";
while(<>) {
exit;
}
On the front of the shirt is the shebang line.
Its pretty cool.
Just thought that I would like to throw that in there.
-Vic [sig]<p>vic cherubini<br><a href=mailto:malice365@hotmail.com>malice365@hotmail.com</a><br><a href= software</a><br>====<br>
Knows: Perl, HTML, JavScript, C/C++, PHP, Flash, Director<br>
Wants to Know: Java, Cold Fusion, Tcl/TK<br>
====[/sig]
It's written in Perl.
Copy and paste it and save it as something like quote.pl and run it. See what it says. Pretty funny. Its on the back of a shirt at
#!usr/bin/perl
@a=(Lbzjoftt, Inqbujfodf, Hvcsjt);
$b="Lbssz Wbmm";
$b =~ y/b-z/a-z/;
$c =" Tif ". @a ." hsfbu wj" . "suvft pg b qsphsbnnfs" . ":\n";$c =~y/b-y/a-z/;
print"\n\n$c ";
for($i=0; $i<@a; $i++) {
$a[$i] =~y/b-y/a-z/;
if($a[$i] eq $a[-1]) {
print "and $a[$i].";
} else {
print "$a[$i], ";
}
}
print "\n\t\t--$b\n\n";
while(<>) {
exit;
}
On the front of the shirt is the shebang line.
Its pretty cool.
Just thought that I would like to throw that in there.
-Vic [sig]<p>vic cherubini<br><a href=mailto:malice365@hotmail.com>malice365@hotmail.com</a><br><a href= software</a><br>====<br>
Knows: Perl, HTML, JavScript, C/C++, PHP, Flash, Director<br>
Wants to Know: Java, Cold Fusion, Tcl/TK<br>
====[/sig]