Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Translated Quips.

by krisahoch (Deacon)
on Sep 30, 2003 at 14:51 UTC ( [id://295304]=poem: print w/replies, xml ) Need Help??

Just a couple of quips. Feel free to add some more;) 
# If at first you don't succeed, 
# then skydiving isn't for you.
if((!$succeed) && $first) { $skydiving !~ $you; }

[download]
On Winning and quiting... 
#Quitters never win.
$Quitters->never('win');

#Winners never quit.
$Winners->never('quit');

#Those who never win and never quit are idiots.
@Idiots = ($ThoseWho->never('win'), $ThoseWho->never('quit'));

[download]
Read this one here, but don't remeber where. If anyone knows, please /msg me and I will update this. 
#You can't make a baby in one month 
#by getting nine women pregnant.
$baby->gestation() != 1 if($women->pregnent(9));

[download]

Updates:

  1. $ThoseWho->never('win') was duplicated. Thanks abell
  2. Fixed my sig *blush* (simonm,naChoZ)
  3. $Quitters->never('quit') changed to 'win' (naChoZ)

Kristofer A. Hoch
Quality Assurance Professional
kristoferhoch@yahoo.com

Replies are listed 'Best First'.
Re: Translated Quips.
by bl0rf (Pilgrim) on Oct 01, 2003 at 01:00 UTC 
    while( $money < 20000 ){ $buy_happiness = undef }
#------

$fabric = Leather::new( rand( 10 ) );
if( $fabric->area() < 8 )
{
  print 'Can\'t make catsuit :-(';
}

    [download]
    Live well, eat Perl
    My site
[reply]
[d/l]

Back to Perl Poetry

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: poem [id://295304]
Approved by castaway
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2024-04-24 22:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found