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})) { ... }

Answer 2

您可以只使用 grep:

my @dogs = qw(Shepard Lab Dalmation Husky Chow Pitbull);
my @wanted_dogs = grep {/^Shepard$/} @dogs;
print "@wanted_dogs\n";

结果：

Shepard

可以根据需要更改正则表达式，如果您只对第一个匹配的狗感兴趣，您会在 $wanted_dogs[0] 中找到它。

Answer 3

智能匹配运算符：

use warnings;
use strict;

my @dogs = qw(Shepard Lab Dalmation Husky Chow Pitbull);
my $doggy = "Shepard";
if ($doggy ~~ @dogs) {
    print $doggy;
}

Answer 4

假设您并不真正想要正则表达式匹配，而只是想查看列表中的某个位置是否存在完全匹配，那么您有多种选择。

智能匹配是相对较新的，但最简单的可能是最快的方法。

经典方法是 grep 和 List::Util::first。如果您确实想要（例如）当 $dog 为“Shep”时匹配“Shepard”，您可以调整后两者以使用正则表达式而不是 eq。

use strict;
use warnings;
use v5.10;

my @dogs = qw(Shepard Lab Dalmation Husky Chow Pitbull);
my $dog = "Shepard";
my $cat = "Ocicat";

say "Smart match";
say $dog ~~ @dogs;
say $cat ~~ @dogs;

say "Grep";
say grep { $_ eq $dog } @dogs;
say grep { $_ eq $cat } @dogs;

say "List::Util";
use List::Util qw/first/;
say first { $_ eq $dog } @dogs;
say first { $_ eq $cat } @dogs;

Answer 5

有一些使用较新的智能匹配运算符的技术，但我更喜欢旧的经典：

my $dogs_re = join '|' => map quotemeta, @dogs;

if ($doggy =~ /$dogs_re/) {...}

在引用名称中的任何正则表达式特殊字符后，创建狗类型的正则表达式替换。

如果需要，您也可以编译正则表达式：

$_ = qr/$_/ for $dogs_re;  

它将放置在定义 $dogs_re 的行之后，并且如果您将多次使用正则表达式，则可能会提供一些性能优势。

Answer 6

我可能会选择哈希查找解决方案作为最佳答案，但有很多方法可以做到这一点。这是其中之一。

请注意，这使用我们的狗名作为正则表达式，并在列表上迭代它，而不是相反。

use v5.10; # needed for say
@dogs=qw(Shepherd Lab Poodle Foo Bar); 
$dog = 'Lab'; 
/\Q$dog\E/i and say for @dogs;"

您可以控制匹配的严格程度：

/\Q$dog\E/i 最不严格，忽略大小写，匹配单词中的任何位置。例如“lab”将匹配“Yellow Lab”、“Labrador”等。

/^\Q$dog\E$/ 是最严格的，匹配大小写，匹配整个单词。

Answer 7

试试这个，

$" = "|";
my @dogs=qw(Shepherd Lab Poodle Foo Bar);
my $temp = "@dogs";
my $dog = "Lab";
print "$1 found" if ($dog =~ /($temp)/);