Длина шаблона регулярного выражения Perl

Question

Я хочу найти один конкретный шаблон в одной строке, но определенной длины (максимальная длина 20).Пример:

строка:

hellokkkkkkkkkkhellokhellokkhellokkkkk

регулярное выражение:

/(hello.*?hello.*?hello)/

, но это дает мне следующий шаблон

loc: от 0 до 26

hellokkkkkkkkkkhellokhello

Но то, что я хочу, это только второй шаблон (означает hellokhellokkhello), длина которого <20 .. Есть предложения? </p>

Answer 1

Чтобы получить перекрывающиеся совпадения, используйте упреждающий просмотр .

my $string = 'hellokkkkkkkkkkhellokhellokkhellokkkkk';
say for
    grep { length($_) < 20 }
    $string =~ /(?=(hello.*?hello.*?hello))/g;