Re: (OT) Perl Snacks
by radiantmatrix (Parson) on Nov 10, 2004 at 23:13 UTC
|
#!/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
| [reply] [d/l] |
|
|
use Digest::MD5 qw(md5_hex);
md5_hex($roll);
;)
thor
Feel the white light, the light within
Be your own disciple, fan the sparks of will
For all of us waiting, your kingdom will come
| [reply] [d/l] |
|
|
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! :)
| [reply] |
Re: (OT) Perl Snacks
by hardburn (Abbot) on Nov 10, 2004 at 17:57 UTC
|
- 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.
"There is no shame in being self-taught, only in not trying to learn in the first place." -- Atrus, Myst: The Book of D'ni.
| [reply] |
Re: (OT) Perl Snacks
by leriksen (Curate) on Nov 11, 2004 at 01:04 UTC
|
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...
| [reply] |
Re: (OT) Perl Snacks
by de-merphq (Beadle) on Nov 10, 2004 at 17:31 UTC
|
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" :-)
| [reply] |
|
|
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?
Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
"Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon
| [reply] |
|
|
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?
| [reply] |
|
|
|
|
|
|
|
Re: (OT) Perl Snacks
by jZed (Prior) on Nov 11, 2004 at 01:08 UTC
|
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? | [reply] |
Re: (OT) Perl Snacks
by perlcapt (Pilgrim) on Nov 11, 2004 at 16:06 UTC
|
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 ;-)
| [reply] [d/l] |
Re: (OT) Perl Snacks
by de-merphq (Beadle) on Nov 10, 2004 at 21:25 UTC
|
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. :-)
| [reply] |