Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

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
Replies are listed 'Best First'.
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.

        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/;


Log In?

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (11)
As of 2015-11-30 14:12 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (771 votes), past polls