确定与 perl 中的正则表达式匹配的部分

我正在寻找正则表达式可能重叠的匹配的累积（最终目标是在结果子字符串中进行进一步搜索）。

我想跳过已经“累积”的匹配，同时避免使用substr（我可能是错误的避免substr），但是我为它写的条件是pos($...) = ... and a next if $... =~ /.../不起作用：

#!/usr/bin/env perl

# user inputs
$regexp = "abc|cba|b";
$string = "_abcbabc_bacba";

$length = length($string);
$result = "0" x $length;

while ( pos($string) < $length and $string =~ /$regexp/go ) {
    pos($string) = $-[0] + 1;
    next unless ($len = $+[0] - $-[0]);

#   The failing condition is here:
#    pos($result) = $-[0];
#    next if $result =~ /1{$len}/;

    substr($result, $-[0], $len) = "1" x $len;

    printf "%s\n", $string;
    printf "%".$-[0]."s%s\n", "", "^" x $len;
}
printf "%s\n", $result;

通过评论这些行我可以获得所需的结果01111111010111:

_abcbabc_bacba
 ^^^
_abcbabc_bacba
  ^
_abcbabc_bacba
   ^^^
_abcbabc_bacba
    ^
_abcbabc_bacba
     ^^^
_abcbabc_bacba
      ^
_abcbabc_bacba
         ^
_abcbabc_bacba
           ^^^
_abcbabc_bacba
            ^
01111111010111

但我的预期输出（在工作条件下）将是：

_abcbabc_bacba
 ^^^
_abcbabc_bacba
   ^^^
_abcbabc_bacba
     ^^^
_abcbabc_bacba
         ^
_abcbabc_bacba
           ^^^
01111111010111

notes:

• 对于每次迭代，我都会打印原始字符串；这^下面显示了当前迭代中已匹配的字符。

• the 0 & 1最后代表总体结果。在此过程中至少匹配过一次的字符被设置为1.

• 我的注释条件是当其对应的字符已设置为时跳过当前匹配1在结果中。

我想你真的想找到最长的重叠子匹配。如果您可以保证交替中的子字符串按照您喜欢的顺序排列，那么这种方法可能会起作用，但它还需要了解除了匹配之外以及未来匹配中发生的情况。也就是说，在获得可能重叠的未来匹配之前，您不知道是否可以输出任何内容，并且您无法判断需要查看多远的未来。

你可以乱搞pos，但我想我只是分别匹配每个子字符串，记住起始位置，然后进行比较。将问题分解为单独的任务，以查找匹配的位置并确定您想要的位置。

即使我编写了与您提供的相同的代码，如果我在长时间缺席后再次看到它（即使我确实突出显示了它），我也不太可能记住必须发生的所有事情以使一切顺利进行@- and @+在第一章中掌握 Perl https://www.masteringperl.org ;)

use v5.10;
use strict;

my $target      = "_abcbabc_bacba";
my @looking_for = qw( abc cba b );

my @found;

foreach my $want ( @looking_for ) {
    my $pos = 0;
    while( my $found_at = index $target, $want, $pos ) {
        last if $found_at == -1;
        push @found, $found_at;
        $pos = $found_at + 1;
        }
    }

my @found  = sort { $a->[1] <=> $b->[1] } @found;

use Data::Dumper;
say Dumper( \@found );

现在你有了一个数据结构，你可以用你喜欢的任何方式来处理，而不用在正则表达式中考虑所有这些东西。您决定如何做到这一点留给读者作为练习。

$VAR1 = [
          [
            'abc',
            1
          ],
          [
            'b',
            2
          ],
          [
            'cba',
            3
          ],
          [
            'b',
            4
          ],
          [
            'abc',
            5
          ],
          [
            'b',
            6
          ],
          [
            'b',
            9
          ],
          [
            'cba',
            11
          ],
          [
            'b',
            12
          ]
        ];

其中一部分可能是内联的。您可以构建这个数据结构，直到您知道到目前为止所拥有的一切都可以产生输出（i.e.您刚刚匹配的内容与之前的内容不重叠）。