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__