Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Can of soda

by jacques (Priest)
on Jun 28, 2004 at 01:35 UTC ( #370072=poem: print w/replies, xml ) Need Help??

Can of soda in my hand
Try to open it
Pop-top breaks off. What to do?

I make a hole and suck
I am a Perl programmer without a job
Sixty cents is a lot of money

Replies are listed 'Best First'.
Re: Can of soda
by zentara (Archbishop) on Jun 28, 2004 at 13:36 UTC
    It works better with 2 holes :-)

    As an aside, I was watching a TV show yesterday, and they had on a female bartender who would BITE open beer cans and suck out the beer. She did it, but it was messy. She said she did it "for the tips"..... what's the world coming to?


    I'm not really a human, but I play one on earth. flash japh

      I saw the same show. Keep in mind that since that segment was on beer, those people were likely very drunk when they first thought those things up (but obviously not so drunk that they couldn't remember it).

      (I only watched for the belly dancers that were on later. I think India is a very good idea.

      ----
      send money to your kernel via the boot loader.. This and more wisdom available from Markov Hardburn.

Re: Can of soda
by Trag (Monk) on Jun 28, 2004 at 15:06 UTC
    drink $soda->pop;
    get(job);


    our @item = reverse (114, 101, 107, 99, 97, 104, 32, 108, 114, 101, 80, 32, 114, 101, 104, 116, 111, 110, 97, 32, 116, 115, 117, + 74); local $my = reverse ")meti@\ ,rhc (pam tnirp";eval $my;
      wouldn't that more appropriately be
      $sodapop->drink;
        Yeah, but better yet (IMHO) would be
        pop @soda;


        our @item = reverse (114, 101, 107, 99, 97, 104, 32, 108, 114, 101, 80, 32, 114, 101, 104, 116, 111, 110, 97, 32, 116, 115, 117, + 74); local $my = reverse ")meti@\ ,rhc (pam tnirp";eval $my;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://370072]
Approved by Ao
help
Chatterbox?
[stevieb]: I am thankful that I fell into Perl years ago in the manner I did. I don't believe there is another language that people care about so much, that they're willing to give everything. Langs come and go, but in Perl, it seems, things remain consistent.
[stevieb]: The people back then (~2000) are the same people now, but with much more experience. I'm appreciative that I fell into the Perl rabbit hole.
[stevieb]: Coding circles around Python devs, showing how unit tests should be done, enabling easy access to everything, learning basic C to wrap for direct hardware access... I am thankful.

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (6)
As of 2017-02-25 01:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?






    Results (364 votes). Check out past polls.