Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

The Perl Diner

by petdance (Parson)
on Jul 16, 2001 at 07:17 UTC ( #96943=poem: print w/replies, xml ) Need Help??

After going to the Perl Film Festival and listening to WPERL, the Perl radio station, a monk can get mighty hungry, so why not stop off at the Perl Diner?

Sit down and chomp on some Perl delectables. This is no time to work on your abs. (Be sure to wash your hands before eating, and use SOAP;)

# say grace bless $this, "Meal"; %browns; my @eggs; for ( 1..10 ) { my ($x,$y) = rand @eggs, rand @eggs; @eggs[$x,$y] = @eggs[$y,$x]; } sub sandwich; @soup = split( //, $p ); chop $pork; write KRISPIE; write KRISPIE; write KRISPIE;
And no, we don't serve java.
Highlight below for the answers....
Hash browns

scrambled eggs

sub sandwich

split pea soup

pork chop

writes krispies (Don't hit me, please)

<megaphone> Throw down the gun and tiara and come out of the float! </megaphone>

Replies are listed 'Best First'.
Re: The Perl Diner
by japhy (Canon) on Jul 16, 2001 at 07:45 UTC
    I'm quite a connisseur when it comes to Perl foods...
    sub eggs { return } chop $suey; corned(%48879); readlink($pig); unlink($hog); link($sow, $swine); 1 while fork; #include "perl.h" "beans" tie %mozarella, 'DB_File'; @soup = (A..Z,a..z);
    And the answers, of course...
    eggs over easy chop suey corned beef hash sausage links vegetables sushi (bonus points if you get the joke) string beans mozarella sticks alphabet soup

    Jeff japhy Pinyan: Perl, regex, and perl hacker.
    s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Re: The Perl Diner
by frag (Hermit) on Jul 16, 2001 at 07:51 UTC
    # Part of this complete breakfast...
    while (@sugar) { pop @sugar; } my (@a, @b, @c); my $bran = [ \@a, \@b, \@c ];

    Sugar Pops
    Arrays in Bran

    -- Frag.

Re: The Perl Diner
by synapse0 (Pilgrim) on Jul 16, 2001 at 09:32 UTC
    My first attempt at one of these.
    (dodges the flying tomatoes)
    @x = qw(corn); $buttered = pop($x); $yum = "ekac"; $eat = reverse($yum); $eat = substr("noodles",1); use CGI; $eat = new CGI; $flavor = 'chocolate'; $type = 'chip'; $eat->cookie(-name=>"$flavor", -value=>"$type");
    buttered popcorn
    upsidedown cake
    oodles of noodles
    chocolate chip cookies
Re: The Perl Diner
by mexnix (Pilgrim) on Jul 16, 2001 at 08:24 UTC
    my @ingre = (\@tomatoes, \@lettuce, \@cheese, \@cucumbers); sub make { my @making = (@_); for (@making) { @making = @making[2,1,3,0]; } return @making; } @done = make(@ingre);
    Answer:(Tossed Salad)

    Will try more tomorrow at work, sleep is iminent.

    <moviequote name="The Whole Nine Yards">
    Jimmy T: Oz, we're friends, friends do not engage in sexual congress with each others wives.

    %mexnix = (email = > "", website => "");

Re: The Perl Diner
by Zaxo (Archbishop) on Jul 16, 2001 at 07:34 UTC

    After Compline,

Re: Dessert at The Perl Diner
by Torgo (Beadle) on Jul 17, 2001 at 22:37 UTC
    That was a mighty meal! Now for dessert.
    $cake = "^" x 10; $tart = " :P~ "; $fruits{"lime"} = $circumference / $diameter;
    Which, of course, are:

    Carat Cake

    Raspberry Tart

    Key Lime Pi (Double pun! Ouch!)

    I write the code while the master is away!
Re: The Perl Diner
by suaveant (Parson) on Jul 16, 2001 at 23:17 UTC
    Would you serve any Fish Dinners at the Perl Diner? :)

                    - Ant

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://96943]
Approved by root
[hippo]: Make it an option?
[Corion]: hippo: Yes, but I'm not sure that it's even worth the effort of implementing it at all...
[Corion]: You'll only ever need that option if you have a long-running query whose results are not cached by your DB already, and in those cases I presume that the programmer will want to maintain the temporary tables themselves - I wouldn't know when to drop ...
[Corion]: ... the temporary tables, and also don't have a good idea on how to create unique table names for them
[hippo]: OIC. In that case leave it out but invite feature requests and see if any of the users suggest it. :-)

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (9)
As of 2017-02-23 15:32 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (347 votes). Check out past polls.