Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

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 cooling their heels in the Monastery: (9)
As of 2015-11-25 17:07 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (683 votes), past polls