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;

[download]

or more elaborately

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

[download]

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

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

[download]

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

BEGIN{ *plague = \&pox;}

[download]
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.

[reply]
      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/;

      [download]

      Toad
[reply]
[d/l]

In Section Perl Poetry