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;

[download]
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)

xoxo,
Andy
--
<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);

    [download]
    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

    [download]

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

[reply]
[d/l]
[select]
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 ];

    [download]


    Sugar Pops
    Arrays in Bran

    -- Frag.

[reply]
[d/l]
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");

    [download]
    -----
    buttered popcorn
    upsidedown cake
    oodles of noodles
    chocolate chip cookies
     -----
    -Syn0
[reply]
[d/l]
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);

    [download]
    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.
    </moviequote>

    %mexnix = (email = > "mexnix@hotmail.com", website => "http://mexnix.perlmonk.org");

[reply]
[d/l]
Re: The Perl Diner
by Zaxo (Archbishop) on Jul 16, 2001 at 07:34 UTC
    @ham[3..5];

    After Compline,
    Zaxo

[reply]
[d/l]
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;

    [download]
    Which, of course, are:

    Carat Cake

    Raspberry Tart

    Key Lime Pi (Double pun! Ouch!)
    --
    I write the code while the master is away!
[reply]
[d/l]
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

[reply]

Back to Perl Poetry