Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

(OT) Perl Snacks

by monoxide (Beadle)
on Nov 10, 2004 at 09:16 UTC ( #406626=perlmeditation: print w/replies, xml ) Need Help??

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.

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.

Replies are listed 'Best First'.
Re: (OT) Perl Snacks
by radiantmatrix (Parson) on Nov 10, 2004 at 23:13 UTC

    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

    require General::Disclaimer;
    Perl is

      Digest, eh?
      use Digest::MD5 qw(md5_hex); md5_hex($roll);


      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

      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! :)
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.

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...

    use brain;

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" :-)

    alter ego of demerphq

      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

        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?

        alter ego of demerphq
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?
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 => ''}; 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 ;-)
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. :-)

    alter ego of demerphq

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://406626]
Approved by de-merphq
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2021-03-02 11:40 GMT
Find Nodes?
    Voting Booth?
    My favorite kind of desktop background is:

    Results (42 votes). Check out past polls.