在 Perl 中，如何检查数组是否与在其内容中至少列出一次的值匹配？

Question

我以前从未真正使用过 Perl（尽可能避免使用），因此我对这个主题的了解很少。

我知道我正在查看的脚本在 @::s_Ship_sShipProducts 中有一个 ProductID 值数组。

我试图查看数组中是否有任何 ProductID 以 B 或 S 开头，如果是，则执行一个函数，否则执行另一个函数。但我最终得到的是为每个 ProductID 执行该语句。这就是我（诚然挽救了）所拥有的。

my $i;
for $i (0 .. $#::s_Ship_sShipProducts) # for each product
    if  ($::s_Ship_sShipProducts[$i] =~ /^(B|S)/) # Determine if B or S product
        {
        if (defined $phashBandDefinition->{'FreeOver'} && CalculatePrice() > 250)
        {$nCost = 0;}
        }
    else    {
        if (defined $phashBandDefinition->{'FreeOver'} && CalculatePrice() > $phashBandDefinition->{'FreeOver'})
        {$nCost = 0;}
        }

我如何更改此设置，以便检查数组以查看是否有任何 ProductID 为 true 并返回 true，如果没有匹配则返回 false？然后根据true或false执行相应的函数？我读了一些书，但仍然一无所知。感谢您抽出时间。

Answer 1

如果数组不是太大（或者你不太关心性能），你可以通过 grep 检查是否有任何匹配的值：

if (my @matching_elements = grep { /^(B|S)/ } @::s_Ship_sShipProducts) {
   # Better yet use /^[BS]/ expression - more idiomatic/readable
   print "Found B/S\n";
} else {
   print "NOT Found B/S\n";
}

完成后，@matching_elements 将包含匹配 ID 的列表。

在罕见情况下，当数组太大而无法完全扫描而您只需要查找第一次出现时，您可以使用Perl 数组中的二进制搜索

---

顺便说一句，你的方法搜索工作完全正常，您只需要在找到后退出循环 - 并且启动，是上面列表中显示的优化方法之一：

for my $i (0 .. $#::s_Ship_sShipProducts) # for each product
    if  ($::s_Ship_sShipProducts[$i] =~ /^[BS]/) {  # Determine if B or S product
        # Execute your logic here
        last; # Found, get out of the loop.
    } 
}

---

注意：在 Perl 5.10 及更高版本中，您可以 - 而不是 grep - 使用所谓的“智能匹配”运算符~~：

if (@::s_Ship_sShipProducts ~~ /^(B|S)/) {
    # Your logic
}

Answer 2

我不太确定我是否在关注您的问题，但我认为您正在寻找 grep< /a>.

my @matched_products = grep(/^(B|S)/,@::s_Ship_sShipProducts);