Re: Better way to write these checks?

[moritz]

in reply to Better way to write these checks?

use List::MoreUtils qw/any/;

sub is_in_num {
   my $matcher = shift;
   any { $matcher == $_} @{$_[0]}
}

sub is_in_str {
   my $matcher = shift;
   any { $matcher eq $_} @{$_[0]}
}

For more general advice on how to refactor code like that, read Higher-Order Perl.

[Ransom]

Thanks for the link. I think that's what I needed to find for several issues in my code.

[Anonymous Monk]

For more general advice on how to refactor code like that, read Higher-Order Perl.

particularly Chapter 5: From Recursion to Iterators