Perl nicht gierig passend

Question

Betrachten Sie dieses nicht gierige Matching; gegeben:

my $seq = "STARTblablablablaSTARTblablablablaSTOP"; 

I STARTblablablablaSTOP nicht gierig übereinstimmen soll.

Ich habe versucht, die folgenden:

($match) = $seq =~ m/(START.*?STOP)/; 
($match) = $seq =~ m/(START(.*)?STOP)/; 
($match) = $seq =~ m/(START.+?STOP)/; 

Aber $ passen immer auf die gesamte Zeichenfolge zugeordnet ist, das heißt

STARTblablablablaSTARTblablablablaSTOP 

Was bin ich?

Answer 1

Frugal (aka nicht gierig oder faul) bedeutet "kürzeste", aber immer noch "ganz links". Sie müssen sehen-um Behauptungen, die anderen Spiele zu finden:

while ($seq =~ m/(?=(TTATG.*?CCATT))/g) { 
    say for $seq, $1; 
} 

Answer 2

an der inneren TTATG Um dorthin zu gelangen ein paar Möglichkeiten sind.

Einer ist ^.*(TTATG.+?CCATT), der bis zum Ende geht, wird die letzte erhalten.

Eine andere ist (TTATG(?:(?!TTATG).)*?CCATT), die ein nicht verschachteltes Paar finden wird.

In Ihrem Fall stimmen beide überein.

(Wenn Sie aus irgendeinem Grund denken überlappende Spiele werden Sie tatsächlich hier helfen
würde ich sagen, es ist wahrscheinlich die falsche Annahme.)

Answer 3

.+?GCTTCTTATGCCCACACACACCCACTCACC abgestimmt, weil GCTTCTTATGCCCACACACACCCACTCACC die am wenigsten .+? an Position bieten kann 5 (wobei TTATG übrig gelassen wurde) und lassen immer noch zu, dass der Rest des Musters übereinstimmt.

---

Sie möchten eine der folgenden, wahrscheinlich der letzte:

/ (TTATG (?:(?!TTATG).)* CCATT) /xs 
/(TTATG (?:(?!CCATT).)* CCATT) /xs 
/(TTATG (?:(?!TTATG|CCATT).)* CCATT) /xs 

(?:(?!STRING).)* zu [^CHAR]* ist als (?:STRING) ist CHAR.