Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

The Perl Diner

by petdance (Parson)
on Jul 16, 2001 at 07:17 UTC ( [id://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
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://96943]
Approved by root
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others pondering the Monastery: (3)
As of 2024-05-24 19:29 GMT
Find Nodes?
    Voting Booth?

    No recent polls found