Dopasowanie dwóch zachodzących na siebie wzorców z Perlem

Question

Mam nadzieję, że moje pytanie nie zostało już zadane przez kogoś innego, ponieważ próbowałem wyglądać prawie wszędzie na stronie, ale nie mogłem znaleźć odpowiedzi.

Mój problem jest: Robię skrypt Perla, który ma wykrywać pozycję każde wystąpienie jednego lub inny wzór na sznurku.

Na przykład:

$string = "betaalphabetabeta"; 
$pattern = "beta|alpha"; 

W tym przypadku, chciałbym mój skrypt do powrotu 4 mecze.

mi, że, że mogą być łatwo osiągnięte za pomocą operatora dopasowania w jakiś sposób jak poniżej:

$string =~ /beta|alpha/g; 

jednak od swoich dwóch wzorów („alfa”, „beta”) częściowo nakładających się kawałek kodu, który właśnie napisałem, pomija wystąpienie pierwszego wzorca, gdy pokrywa się z drugim.

E.g. jeśli mam ciąg jak ten:

$string = "betalphabetabeta"; 

tylko zwraca 3 mecze zamiast 4.

Starałem się zrobić coś z = operatora, ale nie uda się para to z operatorem OR w prawidłowy sposób ...

Czy ktoś ma jakieś rozwiązanie? Dzięki za pomoc!

Answer 1

Poniższa korzysta z zerowej szerokości twierdzenie (wierzę tak to się nazywa).

#!/usr/bin/perl 
use strict; 
use warnings; 

$_ = "betalphabetabeta"; 

while (/(?=(alpha|beta))/g) { 
    print $1, "\n"; 

Wydruki:

C:\Old_Data\perlp>perl t9.pl 
beta 
alpha 
beta 
beta 

Answer 2

Musisz użyć looakahead i policzyć liczbę meczów

(?=beta|alpha) 

nie testowano w Perlu, ale powinien działać

działa here