The Perl Diner

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>

Comment on The Perl Diner Download Code

Replies are listed 'Best First'.

Re: The Perl Diner
by japhy (Canon) on Jul 16, 2001 at 07:45 UTC

connisseur

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]

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

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

(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

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

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

$cake = "^" x 10;

$tart = " :P~ ";

$fruits{"lime"} = $circumference / $diameter;
[download]

Carat Cake

Raspberry Tart

Key Lime Pi (Double pun! Ouch!)

[reply]
[d/l]

Re: The Perl Diner
by suaveant (Parson) on Jul 16, 2001 at 23:17 UTC

Fish Dinner

- Ant

[reply]


Problems? Is your data what you think it is?
	PerlMonks