Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: (OT) Perl Snacks

by perlcapt (Pilgrim)
on Nov 11, 2004 at 16:06 UTC ( #407085=note: print w/replies, xml ) Need Help??

in reply to (OT) Perl Snacks

When I hear the rumble of thunder from the gods battling about node deletion in the skys above, I drop anchor and settle down with this calming French Caribbean traditional Ti:
use strict; # with personal intepretation on amounts use warnings; # alchohol affects ones ability to perform my $favoriteCaneRhum = { madeFrom => 'CaneSyrup', alcohol => { percent => 40, proof => 80}, islands => qw(Haiti Guadaloupe Martinique), reference => ''}; my $limeJuice = 0.25; my $sweetener = (available()) ? 'cane syrup' : 'brown sugur'; my $drink = [$favoriteCaneRhum, $limeJuice, $sweetener, 'water to tast +e']; open INPUT ">mouth" || warn "messy"; print INPUT $drink; close INPUT; print STDOUT "Tell those noisy gods to play somewhere else.\n";
I guess I should have done this with OO-Perl and that way I could have blessed this drink ;-)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://407085]
[Discipulus]: yes I know, bro' and I also know I cannot compete. But no one ask for oneliners.. ;=)
[Discipulus]: and i'm just happy for rising the black camel in the main ladderboard

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (7)
As of 2017-10-22 20:18 GMT
Find Nodes?
    Voting Booth?
    My fridge is mostly full of:

    Results (275 votes). Check out past polls.