我有一个问题,我希望有人能提供帮助(为了解释我想要做什么而大大简化了)......
我有三个不同的数组:
my @array1 = ("DOG","CAT","HAMSTER");
my @array2 = ("DONKEY","FOX","PIG", "HORSE");
my @array3 = ("RHINO","LION","ELEPHANT");
我还有一个包含网页内容的变量(使用 WWW::Mechanize):
my $variable = $r->content;
我现在想看看每个数组中的任何元素是否在变量中找到,如果是,它来自哪个数组:
例如
if ($variable =~ (any of the elements in @array1)) {
print "FOUND IN ARRAY1";
} elsif ($variable =~ (any of the elements in @array2)) {
print "FOUND IN ARRAY2";
} elsif ($variable =~ (any of the elements in @array3)) {
print "FOUND IN ARRAY3";
}
使用数组执行此操作并遍历数组中的每个元素的最佳方法是什么?有没有更好的方法可以做到这一点?
非常感谢您的帮助,谢谢