mshiltonj's Journal
http://use.perl.org/~mshiltonj/journal/
mshiltonj's use Perl Journalen-ususe Perl; is Copyright 1998-2006, Chris Nandor. Stories, comments, journals, and other submissions posted on use Perl; are Copyright their respective owners.2012-01-25T02:42:34+00:00pudgepudge@perl.orgTechnologyhourly11970-01-01T00:00+00:00mshiltonj's Journalhttp://use.perl.org/images/topics/useperl.gif
http://use.perl.org/~mshiltonj/journal/
Perl Songs
http://use.perl.org/~mshiltonj/journal/12383?from=rss
<p>I saw where <a href="http://use.perl.org/~exeunt/journal/">exeunt</a> had created a journal entry where he create "<a href="http://use.perl.org/~exeunt/journal/11666">Perl Songs</a>". I have a few similar things like that myself:</p><p><code><br>$this->give('liberty') || $this->give('death');</code></p><p><code>----</code></p><p><code>! $this->tread('me');</code></p><p><code>----</code></p><p><code>@ways = $this->love($thee);<br>foreach my $way(@ways){<br>
$this->count($way);<br>}</code></p><p><code>----</code></p><p><code>$this->cry(HAVOC);<br>for my $dog (@war){<br>
$this->let($dog->loose());<br>}</code></p><p><code>----</code></p><p><code>$chucks = 0;<br>if ($woodchuck->can_chuck()){<br>
while (<WOOD>){<br>
$woodchuck->chuck($_);<br>
$chucks++;<br>
}<br>}<br>print "$chucks\n";</code></p><p><code>----</code></p>mshiltonj2003-05-22T21:28:10+00:00journal