Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Ogden Nash, 1902-1971

by sauoq (Abbot)
on Aug 21, 2002 at 17:54 UTC ( [id://191814]=note: print w/replies, xml ) Need Help??


in reply to Ogden Nash, 1902-1971

# 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. . .

# 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 } # Some setup. sub make { $self = shift; # through constant industry industrious use constant INDUSTRY => 'industrious'; $$self = INDUSTRY; $$self =~ s/nd/ll/; # industrious is now illustrious bless $self; } $ant = ant(); # More setup. (We need an ant.) $ant->make(); # The Ant has made himself illustrious [see make()] if (0 or 1) { # So What? # would you be 'calm and placid' if you were full of # formic acid? (The rand leaves it a question.) $you = ($you=~/^(formic acid)+$/ and int rand 2) ? 'calm and placi +d' : ''; }
-sauoq
"My two cents aren't worth a dime.";

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://191814]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2024-03-29 11:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found