Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

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

      Toad

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (9)
As of 2014-12-23 02:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (133 votes), past polls