Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Ogden Nash, 1902-1971

by VSarkiss (Monsignor)
on Aug 20, 2002 at 20:27 UTC ( #191589=poem: print w/ replies, xml ) Need Help??

This year is the 100th anniversary of the birth of Ogden Nash, who's probably best known for his short works, which are full of whimsy and humor. Here is some good information about him and his poetry.

The short works are fun to Perl-ify. Here are a couple of weak ones from me.

# The Cow # by Ogden Nash # # The cow is of the bovine ilk; # One end is moo, the other, milk. # package cow; @ISA = qw(bovine); push @cow, 'moo'; unshift @cow, 'milk';

Here's one many will recognize:

# Reflections on Ice-Breaking # by Ogden Nash # # Candy # Is Dandy # But liquor # Is quicker. package candy; @ISA = qw(dandy); package liquor; 1;
I know people here can do much better. Add your contributions below.

Comment on Ogden Nash, 1902-1971
Select or Download Code
Re: Ogden Nash, 1902-1971
by djantzen (Priest) on Aug 21, 2002 at 02:02 UTC

    I think I'd change the second one from @ISA = qw(dandy); to something like  push (@attributes, 'dandy'); to avoid equivocating on the meaning of 'is', which can mean the category in which a being properly resides, as in The Cow, or equality (i.e., "A horse is a horse"), or an assignment of a property to an object, as in Ice-Breaking.

    My first Perl poem, actually, my first poem at all since eighth grade, but here goes:

    Reflection on Caution
    by Ogden Nash

    Affection is a noble quality;
    It leads to generosity and jollity.
    But it also leads to breach of promise
    If you go around lavishing it on red-hot momise

    $affection = 'noble' and do { $generosity++; $jollity++ }; warn --$promise if push @red_hot_momise, $affection;
Re: Ogden Nash, 1902-1971
by sauoq (Abbot) on Aug 21, 2002 at 05:15 UTC

    A variation of "Reflections on Ice-Breaking":

    sub candy { sleep 10; 'dandy' } sub liquor { 'quicker' }
    -sauoq
    "My two cents aren't worth a dime.";
    
(jeffa) Re: Ogden Nash, 1902-1971
by jeffa (Chancellor) on Aug 21, 2002 at 06:19 UTC
    # THE FLY # by Ogden Nash # God in his wisdom made the fly # And then forgot to tell us why. $wisdom = sub {new creation 'fly'}; undef $wisdom unless fork;

    jeffa

    L-LL-L--L-LL-L--L-LL-L--
    -R--R-RR-R--R-RR-R--R-RR
    B--B--B--B--B--B--B--B--
    H---H---H---H---H---H---
    (the triplet paradiddle with high-hat)
    
Re: Ogden Nash, 1902-1971
by sauoq (Abbot) on Aug 21, 2002 at 17:54 UTC
    # The Ant # by Ogden Nash # The ant has made himself illustrious # Through constant industry industrious # So what? # Would you be calm and placid # If you were full of formic acid? sub ant { bless \my $self } sub make { $self = shift; use constant INDUSTRY => 'industrious'; $$self = INDUSTRY; $$self =~ s/nd/ll/; bless $self; } $ant = ant(); $ant->make(); if (0 or 1) { $you = ($you=~/^(formic acid)+$/ and int rand 2) ? 'calm and placi +d' : ''; }

    Update: Wow. Thanks a lot VSarkiss! I've never realized just how fun perl poetry actually was. I'm hooked now. An annotated version. . .

    -sauoq
    "My two cents aren't worth a dime.";
    
Re: Ogden Nash, 1902-1971
by tbone1 (Monsignor) on Aug 21, 2002 at 20:46 UTC
    How about:

    # A door is what a dog is perpetually on the wrong side of @array=('dog', 'door', 'right side'); while (1) { ($array[0],$array[2]) = ($array[2],$array[0]); }

    --
    tbone1
    As God is my witness, I thought turkeys could fly.

      haha you rock. =) -a.non.cowuhd

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://191589]
Approved by Mr. Muskrat
Front-paged by djantzen
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (12)
As of 2014-10-22 16:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (119 votes), past polls