regex - 在 perl 中为 a 的序列后跟相等数量的 b 编写正则表达式

Question

我被要求在 perl 中为 a 的序列编写一个正则表达式，然后是相等数量的 b 的正则表达式，这也让我感到困惑。请帮忙

Answer 1

这是一个粗略的方法。

my $str = 'cabccaabbccabb';

while ($str =~ m/(a+)(b+)/g and length $1 == length $2)
{
    print "match: $1, $2\n";
}

Answer 2

字符串 "aaabbbb" 是否应该匹配，因为它包含 "aaabbb" ？这个答案假设“否”。字符串“only”是否应该包含相等数量的 a 和 b？或者匹配任何字符串中的 a 和 b？这个答案假设后者（同样，这个表达式不被认为是“常规的”，但它是 perl）：

$str = "cdaaaabbbbef";

if ( $str =~ /(?>(a+)(?{$a_cnt = length($^N)})(b+))(?{$b_cnt = length($^N)})(??{ ( $a_cnt == $b_cnt ) ? qr(.?) : qr(^.)})/ ) {
  print "Matches! [$1][$2]\n";
}

Answer 3

假设 perl 的版本不太陈旧：

/(?<ABPAIR>a(?&ABPAIR)?b)/

Answer 4

您将无法使用单个正则表达式来做到这一点。您需要一个表达式来首先计算 a 的数量，然后将其合并到另一个匹配相同数量 b 的表达式中。