Bureaucrats, confirmed, Administrators
4,558
edits
Changes
New page: <source lang="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...
<source lang="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";
</source>
<source lang="perl">
#!/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";
</source>
<blockquote>
<pre>
The 3 great virtues of a programmer:
Laziness, Impatience, and Hubris.
--Larry Wall
</pre>
</blockquote>
@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";
</source>
<source lang="perl">
#!/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";
</source>
<blockquote>
<pre>
The 3 great virtues of a programmer:
Laziness, Impatience, and Hubris.
--Larry Wall
</pre>
</blockquote>