mshiltonj's Journal http://use.perl.org/~mshiltonj/journal/ mshiltonj's use Perl Journal en-us use 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:00 pudge pudge@perl.org Technology hourly 1 1970-01-01T00:00+00:00 mshiltonj's Journal http://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-&gt;give('liberty') || $this-&gt;give('death');</code></p><p><code>----</code></p><p><code>! $this-&gt;tread('me');</code></p><p><code>----</code></p><p><code>@ways = $this-&gt;love($thee);<br>foreach my $way(@ways){<br> &nbsp; &nbsp; &nbsp; $this-&gt;count($way);<br>}</code></p><p><code>----</code></p><p><code>$this-&gt;cry(HAVOC);<br>for my $dog (@war){<br> &nbsp; &nbsp; &nbsp; $this-&gt;let($dog-&gt;loose());<br>}</code></p><p><code>----</code></p><p><code>$chucks = 0;<br>if ($woodchuck-&gt;can_chuck()){<br> &nbsp; &nbsp; &nbsp; while (&lt;WOOD&gt;){<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; $woodchuck-&gt;chuck($_);<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; $chucks++;<br> &nbsp; &nbsp; &nbsp; }<br>}<br>print "$chucks\n";</code></p><p><code>----</code></p> mshiltonj 2003-05-22T21:28:10+00:00 journal