(OT) Perl Snacks

[monoxide]

OK... that may be the wrong title, but here goes...

Well recently i came up with a snack that is tastes absolutly beautifull....
Well i was just wondering if anyone else had any "5 minute snacks" (snacks that can be made in under 5 minutes) that they really enjoyed and would like to share, for when you are busy and hungry at the same time.

HOWTO: Egg and cheese roll.

Cut roll in half.
Put cheese on inside of both halfs of the roll and start grilling the cheese.
Crack one egg into a frying pan, and fry egg.
By now the cheese should be grilled.
Take roll (with cheese still on top) out of the griller.
Place egg on one half of the roll.
Close the roll.
Eat roll.
Enjoy roll.

Update:
Thankyou radiantmatrix for converting this to perl for me :)

#!/usr/bin/perl -w
use Food;
use Cookware;
use strict;

my $roll = new Food('roll');
$roll->cut_in(2);
for (@{$roll->parts}) { $_->add_item('cheese') }
$roll->cook(-method => 'grill');

my $egg = new Food('egg');
$egg->crack( -into => Cookware::frypan );
$egg->cook( -method => 'fry', -using => $egg->cracked_into );

$egg->wait_for_done && $roll->stop_cooking;
## wait_for_done implies $egg->stop_cooking

$roll->parts[0]->add_item($egg);
$roll->reassemble;

$roll->consume;

print "Mmm... tasty" if ($roll->was_eaten && $roll->was_tasty);

# Wait for GarbageCollection to take place.

Edited by theorbtwo/theonetwo: Unreaped, added (OT) to title. Considered by de-merphq: "DO NOT CONSIDER FOR DELETION -- edict from the gods". Unconsidered by davido: vote was (keep/edit/delete) 22/2/5. Positive rep/votes will block reaping attempts.

[radiantmatrix]

I know! I'll make it on-topic!

#!/usr/bin/perl -w
use Food;
use Cookware;
use strict;

my $roll = new Food('roll');
$roll->cut_in(2);
for (@{$roll->parts}) { $_->add_item('cheese') }
$roll->cook(-method => 'grill');

my $egg = new Food('egg');
$egg->crack( -into => Cookware::frypan );
$egg->cook( -method => 'fry', -using => $egg->cracked_into );

$egg->wait_for_done && $roll->stop_cooking;
## wait_for_done implies $egg->stop_cooking

$roll->parts[0]->add_item($egg);
$roll->reassemble;

$roll->consume;

print "Mmm... tasty" if ($roll->was_eaten && $roll->was_tasty);

#Digest Roll patch by thor, with minor mods
$roll->use('Digest::MD5');
$roll->{MD5}->digest;

It needs a digestion patch, but that should be it -- thor inspired a patch to digest the roll as well.

Perl's automatic garbage collection should take care of the rest. ;-P

[thor]

Digest, eh?

use Digest::MD5 qw(md5_hex);
md5_hex($roll);

;)

[monoxide]

Thankyou radiantmatrix, i actually intended to do this in the original post.... hence the semblance of a code section in the original post (now replaced with yours). :) have fun and enjoy! :)

[hardburn]

• Ice cream (your choice of flavor--vanilla and mint are good)
• Milk
• Chocolate Syrup
• Vodka
• Baily's Irish Cream
• Kalua

Put the ice cream in a glass, filled to the brim. Microwave until it's soupy (exact time depends on microwave and size of the glass). The liquid should take less volume, so fill half the remaining space with milk, a little chocolate syrup, and the rest with the booze specified above to your taste. Vodka gives it a nice bite, while the Irish Cream and Kalua are sweater.

[de-merphq]

The parent node was deleted by the normal consideration process and then later restored by de-merphq with the general approval and consensus of the gods. If you don't think the node should be posted and you want to express the fact DOWNVOTE THIS NODE NOT THE OP! HE HAD NOTHING TO DO WITH THE RESTORE.

People eat. Programmers eat. Food is an important factor that too many hackers ignore. Reminding people to eat and eat well on a hackers site just may keep our readership just little bit healthier than they are.

While we don't want a lot of wildly OT material here in the monastery the occasional "we are all human too" nodes arent a problem, and this one in particular shouldnt be at all. OTOH Please confine food related postings to this thread. (And who knows with a bit of luck Larry and the other Perl Gurus might post some of their favourite recipes, might just give a whole new meaning to a "Perl Cookbook" :-)

[BrowserUk]

De-merphq You had a rush of blood to the head didn't you? Go on, admit it. A power crazed, god-like rush of blood to the head.

Yes, Perl programmers eat.

So do Perl programmers use C and SQL and shell scripts sometimes, but these topics are frequently considered too far off topic unless there is at least a semblance of Perl relatedness.

Perl programmers also excrete.

I have some time-honoured advice on the appropriate angles of declination of the upper torso to maximising throughput, thus ensuring greater programmer productivity by reducing downtime. Shall I post the meditation?

[de-merphq]

Sometimes the place gets a little stuffy BrowserUk. And if you were to consult the appropriate chatter log youd see the answer is no i didn't get a rush of power. I didn't even think to restore it until theorbtwo pointed out that I in fact had the power to do so.

I respected your right to consider it for deletion, but in this case without any criticism of the consideration you made I felt it was appropriate to override it. Its not something im likely to do often, but I felt that in this case the node shouldn't have been deleted. From what ive seen in the chatter lots of monks here like cooking and frankly a little around-the-cooler banter here isnt totally out of place. The other thing is that I'm pretty sure that had a more established monk written a node in the appropriate tone on the same subject it wouldn't have been deleted. I mean he might not have quite touched the right tone but he at least made an effort.

Im really hopeful that the restore of this node wont get political. We dont need any more politics than we all already have in our lives and a little bit of light hearted stuff around here would help to keep the site lively.

Consider "the node which shall not be named". What difference is there between a node about why people chose their nickname and a node about what peoples favorite recipes are?

[leriksen]

And to refresh your palate after your roll, try this
• Fill a tall glass with cold water
• Add a tablespoon of lemon juice
• Add a teaspoon of sugar
• Add half a teaspoon of minced ginger
• Add a few ice cubes, or crushed ice
• Imbide and enjoy.

Our northern hemisphere readers may need to wait till summer to really enjoy this - my wife loves this one on a 40 degree (celcius) day in Melbourne, when the hot north wind will dry you out like a dead dingo's donger...

[de-merphq]

I like soup. I often get frozen chopped vegtables and these korean noodle soup packs that are hot as hell. Put it together with water and microwave and presto. Its a great snack for leaving round the office for a late night session. You gotta be careful when you slurp the noodles though. :-)

[jZed]

My local deli (Noah's Deli) calls this a "Bagel mit egg". It is indeed yummy with a poppy seed, garlic, or onion bagel, and of course the cheese is a must. Hmm, wonder why my cholesterol came in at 255?

[perlcapt]

When I hear the rumble of thunder from the gods battling about node deletion in the skys above, I drop anchor and settle down with this calming French Caribbean traditional Ti:

use strict; # with personal intepretation on amounts
use warnings; # alchohol affects ones ability to perform
my $favoriteCaneRhum = {
            madeFrom => 'CaneSyrup',
            alcohol => {
                        percent => 40,
                        proof => 80},
            islands => qw(Haiti
                         Guadaloupe
                         Martinique),
            reference => 'http://www.ministryofrum.com'};
my $limeJuice = 0.25;
my $sweetener = (available()) 
     ? 'cane syrup' 
     : 'brown sugur';

my $drink = [$favoriteCaneRhum, $limeJuice, $sweetener, 'water to tast
+e'];

open INPUT ">mouth" || warn "messy";
print INPUT $drink;
close INPUT;

print STDOUT "Tell those noisy gods to play somewhere else.\n";

I guess I should have done this with OO-Perl and that way I could have blessed this drink ;-)