ActiveState writes "Forget sonnets for your sweetheart. For a real display of passion, find out the winners of ActiveState's first annual 'Why I Love Perl' Haiku Contest, where devoted programmers express their love for one of the web's most popular programming languages. ActiveState's Perl development team selected the top three entries in the categories 'Best Haiku About Perl' and 'Best Haiku Written in Perl'. Prizes included licenses for ActiveState's Perl programming bundle ASPN Perl, featuring Komodo Professional Edition, and cool ActiveState gear.
Check out all the entries on the ActiveState Programmer Network (ASPN)." Read on for the winners.
Grand Prize Winners:
Ed Snoeck, Best Haiku About Perl
ugliness that grows
into beauty inside of
your favorite shell
James Tilley, Best Haiku Written in Perl
no less can I say;
require strict, close attention
while you
Unreadable code,
Why would anyone use it?
Learn a better way.
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->get( "http://aspn.activestate.com/ASPN/Perl/Haiku/AboutPerl" );
my @names = ($mech->content =~/Name: (.+?)<BR/igm);
my %count;
++$count{$_} for @names;
for my $key ( sort { $count{$b}<=>$count{$a} || lc $a cmp lc $b } keys %count ) {
printf "%3d: %s\n", $count{$key}, $key;
}
Re:hmmmm
petdance on 2004-02-16T03:21:01
Kevin Meltzer's post
Is funniest Perl haiku
Made me laugh aloud
