Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

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 ;-)

Comment on Re: (OT) Perl Snacks
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://407085]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (10)
As of 2015-07-31 19:06 GMT
Find Nodes?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...

    Results (280 votes), past polls