Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

lunch plans

by silent11 (Vicar)
on Mar 02, 2007 at 18:24 UTC ( [id://602924]=poem: print w/replies, xml ) Need Help?? 

#!/usr/bin/perl 

use strict;

join('me','at', our @FranksPizza) for 'pizza' and 'wings' or
do not chomp my ($pizza, @ lunch); time;

[download]


-silent11
Spread Firefox

Replies are listed 'Best First'.
Re: lunch plans
by ciderpunx (Vicar) on Mar 04, 2007 at 13:22 UTC 
    shift @chair and push @to, $table; if (exists $enough[$space])
{next; wait for $pizza}
split $pizza and chop $slices for @all; 
$munch and $munch;
pop @beers;
sleep until ($waiter = warn time . $to_go );

    [download]
    --
    Linux, perl, punk rock, cider: charlieharvey.org.uk.
[reply]
[d/l]
Re: lunch plans
by former33t (Scribe) on Mar 09, 2007 at 19:10 UTC
    That is outstanding. Granted I'm easily entertained but you've made my afternoon!
[reply]

Back to Perl Poetry

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: poem [id://602924]
Approved by Albannach
Front-paged by smokemachine
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others taking refuge in the Monastery: (7)
As of 2024-04-23 13:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found