Corrispondenza con due pattern sovrapposti con Perl

Question

Spero che la mia domanda non sia già stata posta da qualcun altro, poiché ho cercato di guardare quasi ovunque nel sito ma non sono riuscito a trovare una risposta.

Il mio problema è: Sto facendo uno script PERL che deve rilevare la posizione di ogni occorrenza di uno o di un altro modello in una stringa.

Per esempio:

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

In questo caso, vorrei il mio script di restituire 4 partite.

ho pensato che questo potrebbe essere realizzato facilmente utilizzando l'operatore di corrispondenza in qualche modo simile:

$string =~ /beta|alpha/g; 

Tuttavia, poiché le due modelli ("alpha", "beta") sono parzialmente sovrapposte, il pezzo del codice che ho appena postato ignora qualsiasi occorrenza del primo pattern quando si sovrappone al secondo.

E.g. se ho una stringa come questa:?

$string = "betalphabetabeta"; 

restituisce solo 3 partite invece di 4.

ho provato a fare qualcosa con l'operatore =, ma io non riesco a coppie con l'operatore OR in modo corretto ...

Qualcuno ha qualche soluzione? Grazie per l'aiuto!

Answer 1

Di seguito utilizza un'asserzione a lunghezza zero (credo è così che si chiama).

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

$_ = "betalphabetabeta"; 

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

Stampe:

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

Answer 2

Devi usare looakahead e contare il numero di partite

(?=beta|alpha) 

non testato in Perl, ma dovrebbe funzionare

funziona here