搜索字符串是否与Perl中数组的任何正则表达式匹配

Question

我有一个包含一些PCRE匹配模式（例如“ prefix _。*”）的数组，并且我正在将字符串与该数组的所有模式进行比较。 目前，我正在使用以下代码：

foreach (@matchingPatterns) {
    if ("$string" =~ "$_") {
        [do something]
    }
}

这段代码运行良好，但是我确定在Perl中有一种更漂亮的方法（没有循环吗？）。

我错了吗？ ;）

Answer 1

这里没有太多改进的余地，但是我更愿意编写以下内容之一：

for (@matchingPatterns) {
    next if $string !~ /$_/;
    # do something
}

要么

for (grep { $string =~ /$_/ } @matchingPatterns) {
    # do something
}

...两者都至少为您节省了几行代码。