regex - Perl，将标量与数组进行比较(使用正则表达式？)

Question

我会简短，以免浪费您的时间；

简单的问题，我有一堆说，数百条狗

my @dogs = qw(Shepard Lab Dalmation Husky Chow Pitbull ...)

我想把它比作一只狗

my $doggy = "Shepard";

我知道这很愚蠢，但我该怎么做？

# Regex match against array?
# (This doesnt even work but its how i would think of doing it)
if ($doggy =~ /@dogs/) {
print $doggy;
}

感谢您提前提供任何答案，感谢你们帮助我解决一个可能非常愚蠢的问题。谢谢

Answer 1

我会这样做:

my %hDogs = map { $_ => 1 } @dogs;

if(exists($hDogs{$doggy})) { ... }