Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

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

by ChemBoy (Priest)
on Apr 17, 2002 at 20:36 UTC ( #159982=note: print w/ replies, xml ) Need Help??

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

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

Comment on Re: Re: Aaah, spring (A Very Special Perlmonks Contest)
Select or Download Code
Re: Re: Re: Aaah, spring (A Very Special Perlmonks Contest)
by andye (Curate) on Apr 18, 2002 at 11:23 UTC
    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/;


Log In?

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2015-07-03 03:57 GMT
Find Nodes?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...

    Results (48 votes), past polls