Re: Using IF and OR, I'm sure there is a better way

write your own shortcircuiting any() if you don't want to use cpan:

sub any {
  my $var = shift;
  for (@_) { return 1 if $var == $_ }
}
if (any($var,1..2000)) { print "Var is between 1 and 2000 inclusive\n"
+ }
[download]

Comment on Re: Using IF and OR, I'm sure there is a better way Download Code

Replies are listed 'Best First'.
Re^2: Using IF and OR, I'm sure there is a better way by cosmicperl (Chaplain) on Apr 27, 2008 at 18:37 UTC
Think I like this one best. I'm sure it'll bench fastest as well. Firing up the regexp engine to compare will have a noticeable overhead.	[reply]


Perl: the Markov chain saw
	PerlMonks