Based on "The Walrus and the Carpenter" by Lewis Carroll.

This is my first attempt at poetry in Perl. It's not supposed to run and would probobly return a ton of errors if you tried running it. 

print WALRUS, "the" . time() . "has come";    
$talk = $many_things;    
$clothing{'foot'} && $ships && $wax{'sealing'};    
$cabbages && $monarch{'king'};    
&& ?$sea == $boiling hot;    
&& ?$pigs & $wings;

[download]

Replies are listed 'Best First'.
Re: The Walrus
by premchai21 (Curate) on May 08, 2001 at 20:05 UTC 
    use strict;
my (%things, @many, $sea, %pigs);
sub talk { }

<WALRUS> eq "the $(time) has come";
talk(@things{@many});
@things{@many} = 'shoes' & 'ships' & 'sealing wax';
@things{@many} = 'cabbages' & 'kings'
    & ($sea->isa('Boiling::Hot') ? 0 : 0)
    & (exists $pigs{wings} ? 0 : 0);

    [download]
[reply]
[d/l]

Back to Perl Poetry