•Re: improve ugly flow control

Just a different try on this:

use List::Util qw(first);
if (defined(my $try = first { $hash{$_} } @options)) {
  do_something($try);
} else {
  log_failure();
}
[download]

Comment on •Re: improve ugly flow control Download Code

Replies are listed 'Best First'.
Re^2: improve ugly flow control by perrin (Chancellor) on Sep 19, 2004 at 20:52 UTC
That's a neat idea. Unfortunately, in my real code, the $hash{$_} test is actually something expensive, so I need to stop as soon as one of the options works. I should have made a better example.	[reply]
•Re^3: improve ugly flow control by merlyn (Sage) on Sep 20, 2004 at 05:55 UTC
Uh, `first` actually bails on that. Try it! -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re^2: improve ugly flow control by Aristotle (Chancellor) on Sep 20, 2004 at 09:50 UTC
I liked that quite a bit, but the structure has been bothering me, like with most other solutions: it feels to me like the failure case gets too much emphasis. I didn't know how to do any better when I first saw the post, though. But now I think I do: `{ my $try = first { $hash{ $_ } } @options; defined $try or ( log_failure(), last ); do_something( $try ); }` [download] Makeshifts last the longest.	[reply] [d/l]