Help for this page
my @invalid_list = qw< John Simon Mathias Aerith Bob >; my @test = qw< Alice Bob John Doe >; ... { print "$name\n" unless exists $invalid{$name}; }
use List::Util qw( none all any ); for my $name (@test) { ... print "Any > $name\n" unless any { $name eq $_ } @invalid_list; print "All > $name\n" if all { $name ne $_ } @invalid_list; }
www.com | www.net | www.org
No recent polls found