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

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

[download]

Replies are listed 'Best First'.
Re: Re: Aaah, spring (A Very Special Perlmonks Contest) by ChemBoy (Priest) on Apr 17, 2002 at 20:36 UTC
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	[reply] [d/l] [select]
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]
Re: Re: Re: Re: Aaah, spring (A Very Special Perlmonks Contest) by Toad (Initiate) on Apr 22, 2002 at 19:53 UTC
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]


Problems? Is your data what you think it is?
	PerlMonks