Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Re: Caffeine and its delivery to monks in need

by Rex(Wrecks) (Curate)
on May 15, 2002 at 17:13 UTC ( #166793=note: print w/replies, xml ) Need Help??

in reply to Caffeine and its delivery to monks in need

A semi-OO way :)

Called as: ./ kenya_AA high am 10
Here is the code:
use IV::Caffeine ; my $favorite_poison = shift ; my $flowrate = shift ; my $time_of_day = shift ; my $groggy = shift ; if ($time_of_day ne "pm"){$time_of_day = "am" ;} while ($time_of_day eq "am" || $time_of_day = "pm") { my $leftarm = "InnerLeftElbow" ; my $rightarm = "InnerRightElbow" ; $injector = new IV::Caffeine(Poison => $favorite_poison, NeedleSize + => $flowrate) $injector->pierce_skin($leftarm) ; $injector->pierce_skin($rightarm) ; $injector->begin_flow ; if ($groggy >= 5) {$injector->increase_flow($leftarm, $rightarm) ;} }

"Nothing is sure but death and taxes" I say combine the two and its death to all taxes!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://166793]
[1nickt]: I have been an apostate in the Apple orchard for almost 15 years. But Dells are still high quality it seems, unlike Macs these days.
[1nickt]: And you can still configure the system at will, on the "Small Business" site.
[Corion]: 1nickt: I bought a 2015 XPS 13, which is a very nice and shiney (and somewhat overpriced) machine, but I think it's still better priced than an Apple machine. Now it just has to hold up 10 years like the old one did ;)
[1nickt]: Ah, you got Linus' fave? With Ubuntu? 4k display?
[1nickt]: ( The 17" monster I just bought is for my wife, who doesn;t leave the house with it...)

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (9)
As of 2017-03-27 13:06 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (320 votes). Check out past polls.