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

[lemming]

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

[ChemBoy]

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

[andye]

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.

[Toad]

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