Hello Anant,
> I want to search whether a scalar '$a' contains any one of value of an
> array '@arr'.
> How it may be done?
If you are using perl v5.010 or later, you can use the smart match operator
(~~):
use 5.010;
use strict;
use warnings;
my @array = qw( foo bar quux );
my $item = 'bar';
if ( $item ~~ @array ) {
say "Item found: $item";
}
However, if you have an older perl, you can use List::Util's (which is a core
module since perl v5.7.3) `first` subroutine:
use strict;
use warnings;
use List::Util qw( first );
my @array = qw( foo bar quux );
my $item = 'bar';
if ( first { $item eq $_ } @array ) {
print "Item found: $item\n";
}
Regards,
Alan Haggai Alavi.
--
The difference makes the difference.
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
