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 | |
Re: Perl Mambo
by benn (Vicar) on Apr 29, 2003 at 00:50 UTC |
Back to
Perl Poetry