Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
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

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

      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?
[LanX]: choroba yes
[erix]: Utrecht has a beautiful old center, and less mass-tourism than Amsterdam
[erix]: next time, drop by :)
[LanX]: religion is also the reason how the house of Hanover aquire the English throne, all other candidates on succession where catholics...
[erix]: Henry VIII has a lot to answer for :P
[LanX]: erix sure next time you miss a conference nearby we drop by ...
[LanX]: did you even go to the Dutch Perl Workshop in Utrecht?
[erix]: haha ok. I'm going to Glasgow though, and make a long road trip round the isles
[erix]: [Lanx} not the last time but the one before (there have been two)
[LanX]: when did you move to Utrecht, you used to live in a windmill on a dyke walking around in wooden shoes. ..

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (9)
As of 2017-12-15 16:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What programming language do you hate the most?




















    Results (439 votes). Check out past polls.

    Notices?