Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

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__

Replies are listed 'Best First'.
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 (Vicar) on Apr 29, 2003 at 00:50 UTC
    /me dances around the monastery halls 7 months too late - Bravo.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2022-08-16 08:02 GMT
Find Nodes?
    Voting Booth?

    No recent polls found