Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Perl Mambo

by jkahn (Friar)
on Sep 15, 2002 at 21:48 UTC ( #198089=poem: print w/ replies, xml ) Need Help??

This tune has been kicking around in my head for a while, so I couldn't resist. This compiles under strict and warnings, and sorta sums up why I like Perl.
#!perl -w use strict; # really! do # to the tune of 'Mambo'; #5, apologies to Lou Bega our (@syntax) = ('syncopated', 'baby'); sub refrain { my (%little_bit_of) = ('regex' =~ /(matching) (string)/); @ little_bit_of{'shell', 'calls'} = `do_that thing`; $little_bit_of{C} = sub { for(@syntax){ $little_bit_of{sed} =~ s!\\!!g; # "strip backwhacks" } }; @ { $little_bit_of{'OO'}->can('be_nice') } = @ little_bit_of{'lisp', 'lists'} = map {$_} splice(@_); @ little_bit_of{'rich', 'language'} = ('easy', 'puns'); @ { $little_bit_of{'Perl'} } = ('number' => 1); return [instrumental bridge]; } __END__

Comment on Perl Mambo
Select or Download Code
Re: Perl Mambo
by tretin (Friar) on Sep 20, 2002 at 18:45 UTC
    Catchy, and IMO better than the original.

    Nice job.
    work it harder make it better do it faster makes us stronger more than ever hour after our work is never over.
Re: Perl Mambo
by benn (Priest) on Apr 29, 2003 at 00:50 UTC
    /me dances around the monastery halls 7 months too late - Bravo.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (7)
As of 2014-10-24 15:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (132 votes), past polls