Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: Aaah, spring (A Very Special Perlmonks Contest)

by lemming (Priest)
on Apr 17, 2002 at 19:12 UTC ( #159950=note: print w/ replies, xml ) Need Help??


in reply to Aaah, spring (A Very Special Perlmonks Contest)

sub window { while ($waiting) { last if hark($event_ref); } if ($event_ref->{'rock'} eq 'brick') { sleep; } } # Hark! What rock through yonder window breaks? # It is a brick and Juliet is out cold


Comment on Re: Aaah, spring (A Very Special Perlmonks Contest)
Download Code
Re: Re: Aaah, spring (A Very Special Perlmonks Contest)
by ChemBoy (Priest) on Apr 17, 2002 at 20:36 UTC

    If we're doing straight translations...

    map { pox $_ } $montagues, $capulets;

    or more elaborately

    require House; map { pox $_ } map { House->new($_) } qw(Montague Capulet);

    /me realizes he will now be whacked with the void context stick...

    pox $_ foreach map { House->new ($_) } qw (Montague Capulet);

    Update: to handle the multiple-editions problem pointed out by andye below, add

    BEGIN{ *plague = \&pox;}
    to the above. :-)



    If God had meant us to fly, he would *never* have given us the railroads.
        --Michael Flanders

      Very good! I'm amused. But s/pox/plague/ (sorry, I'm a pedant, I know).

      Update: I've just double-checked and, interestingly, both plague and pox are right - it varies between the original sources.


        Reason: (ChemBoy) delete: content is a subset of 161137

        For more information on this node visit: this

        Bah, can't figure how to reply to the original message. (My first contribution ever, and it has to be this .. oh, the shame! The humanity!)

        for (1) { for (1) { my @breach = ("dear", "friends"); }} # Henry V, of course # I know, hardly obtuse enough, but then being a mere novice ... my ($prick, $tickle, $wrong); my ($bleed, $laugh, $revenge) = undef; if ($prick) { $bleed = 1; } if ($tickle) { $laugh = 1; } if ($wrong) { $revenge = 1; } # Or warn "bleed" if /prick/; warn "laugh" if /tickle/; warn "revenge" if /wrong/;

        Toad

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://159950]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (8)
As of 2014-08-29 11:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (280 votes), past polls