Perl: Difference between revisions
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... |
m Text replacement - "<(\/?)source" to "<$1syntaxhighlight" Tags: Mobile edit Mobile web edit |
||
| (2 intermediate revisions by one other user not shown) | |||
| Line 1: | Line 1: | ||
< | See story at | ||
http://freephile.com/cms/content/three-virtues-good-programmer | |||
<syntaxhighlight lang="perl"> | |||
@a=(Lbzjoftt, Inqbujfodf, | @a=(Lbzjoftt, Inqbujfodf, | ||
Hvcsjt); $b="Lbssz Wbmm"; | Hvcsjt); $b="Lbssz Wbmm"; | ||
| Line 12: | Line 15: | ||
;}else{ print "$a[$i], "; | ;}else{ print "$a[$i], "; | ||
}}print "\n\t\t--$b\n\n"; | }}print "\n\t\t--$b\n\n"; | ||
</ | </syntaxhighlight> | ||
< | <syntaxhighlight lang="perl"> | ||
#!/usr/bin/perl | #!/usr/bin/perl | ||
| Line 32: | Line 35: | ||
} | } | ||
print "\n\t\t--$b\n\n"; | print "\n\t\t--$b\n\n"; | ||
</ | </syntaxhighlight> | ||
<blockquote> | <blockquote> | ||
| Line 41: | Line 44: | ||
</pre> | </pre> | ||
</blockquote> | </blockquote> | ||
[[Category:Perl]] | |||