perl - Perl - 字母序列中的部分模式匹配

Question

我正在尝试使用 perl 找到一种模式。但我只对模式的开始和结束感兴趣。更具体地说，我有一个字母序列，我想看看是否存在以下模式。有23个字符。而且我只对序列的开头和结尾感兴趣。

例如，我想提取以 ab 开头并以 zt 结尾的任何内容。总有所以它可以

abaaaaaaaaaaaaaaaaaaazt

以便它检测到此匹配但不检测

abaaaaaaaaaaaaaaaaaaazz

到目前为止我试过

if ($line =~ /ab[*]zt/) {
    print "found pattern ";
}

谢谢

score 3 · Accepted Answer

*是一个量词和元字符。在字符类括号内[ .. ]，它仅表示字面星号。您可能正在考虑.*哪个是通配符，后跟量词。

匹配整个字符串，例如"abaazt".

/^ab.*zt$/

注意锚点^和，以及后跟零个或多个量词$的通配符。.*

匹配另一个字符串中的子字符串，例如"a b abaazt c d"

/\bab\S*zt\b/

使用单词边界\b来表示开始和结束而不是锚点。您还可以更具体：

/(?<!\S)ab\S*zt(?!\S)/

使用双重否定断言在目标文本之后或之前没有非空白字符。

也可以使用该substr功能

if (substr($string, 0, 2) eq "ab" and substr($string, -2) eq "zt")

你提到字符串是 23 个字符，如果这是一个固定长度，你可以得到更具体的，例如

/^ab.{19}zt$/

恰好匹配 19 个通配符。{}量词的语法是{min, max}，任何留空的值都表示无限，即{1,}与+和{0,}相同*，分别表示一个/零个或多个匹配项。

score 0 · Accepted Answer

如果你想匹配任何你需要使用的东西，只是 a*本身不会匹配任何东西（除了文字）。*.*

if ($line =~ /^ab.*zt$/) {
    print "found pattern ";
}

如果您真的想捕获匹配，请将整个模式包装在捕获组中：

if (my ($string) = $line =~ /^(ab.*zt)$/) {
    print "found pattern $string";
}

2 回答 2