For the wee ones - perl Nursery Rhymes


$HumptyDumpty->sit( on => 'wall' );
$HumptyDumpty->fall( 'great' );
foreach( $King->Horses(), $King->Men() ) {
   exit(0) if $_->put_back_together_again( $HumptyDumpty );
}
die "Couldn't put " . $HumptyDumpty . " back together again";

#############################################################

$baby->hush( 'a-bye' );
push @tree_top, $baby;
while( $wind->blows() ) {
   $cradle->rock();
   last if $bough->breaks();
}
$baby->fall();
map { $_->down() } ( $baby, $cradle );

#############################################################

warn "Fee! Fie! Foe! Fum!";
$_ = new Smell( 'blood', 'Englishman');
if( $_->live() or $_->dead() ) { #this will never fail
   my $bread = $_->grind_bones();
}

#############################################################

$Mary->Lamb( little => 1, fleece => 'white as snow' );
go( $Mary ) and go( $Mary->Lamb );

#############################################################

print "Baa Baa";
if( exists $black_sheep->{'wool'} ) {
   print "Yes sir"x2;
   @wool = ($black_sheep->{'wool'})x(3 * $bags);
   
   ($master, $dame) = @wool;
   
   if( $little_boy->lives( 'down the lane' ) ) {
      $little_boy = shift @wool;
   }
}
[download]

Hope that helps!

It's not what you look like, when you're doin' what you’re doin'.
It's what you’re doin' when you’re doin' what you look like you’re doin'!
- Charles Wright & the Watts 103rd Street Rhythm Band, Express yourself

Comment on For the wee ones - perl Nursery Rhymes Download Code

Replies are listed 'Best First'.
Re: For the wee ones - perl Nursery Rhymes by ikegami (Patriarch) on Nov 02, 2006 at 22:48 UTC
Inspiring! Here's a nursery rhyme I learned. use Filter::Echo repeat_line => 2; use Lottery::ShortStraw; my $ship = Ship->new(size => 'small'); assert(!$ship->sailed()); my $trip = Trip->new(size => 'long', where => 'Mediterranean Sea'); $ship->stock_for((5+rand()) * 7); # 5..6 weeks $ship->sail($trip); while ($ship->at_sea()) { if ($ship->food() == 0) { log("ERROR: Food supplies depleated\n"); my $winner = short_straw($ship->crew->list()); $ship->crew->remove($winner); log("INFO: " .$winner->name() . " (" . $winner->epitaph() . ") has been eaten\n"); $ship->stock($winner->cook()); } } [download] Log: `ERROR: Food supplies depleated INFO: Younguest (Had never sailed) has been eaten` [download] The above is based on a French nusery rhyme. Most only know the first two verses. Here are the first five. Il était un petit navire Il était un petit navire Qui n'avait ja, ja, jamais navigué Qui n'avait ja, ja, jamais navigué Ohé, ohé... Il entreprit un long voyage Il entreprit un long voyage Sur la mer Mé, Mé, Méditérannée Sur la mer Mé, Mé, Méditérannée Ohé, ohé... Au bout de cinq à six semaines Au bout de cinq à six semaines Les vivres vin, vin, vinrent à manquer Les vivres vin, vin, vinrent à manquer Ohé, ohé... On tira t'à la courte paille On tira t'à la courte paille Pour savoir qui, qui, qui serait mangé Pour savoir qui, qui, qui serait mangé Ohé, ohé... Le sort tomba sur le plus jeune Le sort tomba sur le plus jeune Qui n'avait ja, ja, jamais navigué Qui n'avait ja, ja, jamais navigué ... Roughly translated: There was once a little ship which have never sailed. It undertook a long trip on the Mediterranean Sea. After 5 or 6 weeks, supplies ran out. Straws were drawn to determine who whould be eaten. The fate landed on the youguest, who had never sailed. ... Things actually turn for the best after a few more verses. While discussing how he'd be eaten, the sailor's prayers are answered. Millions of small fishes leap aboard. Still quite gruesome!	[reply] [d/l] [select]
Re^2: For the wee ones - perl Nursery Rhymes by zentara (Cardinal) on Nov 03, 2006 at 13:23 UTC
I was watching a TV show on Cannibalism, and it reported that during the "sailing and whaling years" it was commonly accepted amoung sailors, that a crew may have to eat someone to stay alive, especially after a shipwreck. They kind of gloss that over in high-school history classes..... probably to avoid lunchroom jokes. :-) I'm not really a human, but I play one on earth. Cogito ergo sum a bum	[reply]