Perlの貪欲でないマッチング

Question

この貪欲でないマッチングを考えてみましょう。与えられた：

my $seq = "STARTblablablablaSTARTblablablablaSTOP"; 

私は一致したいSTARTblablablablaSTOP非貪欲です。

私は次のことを試してみました：私は何をしないのです

STARTblablablablaSTARTblablablablaSTOP 

すなわち

、

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

しかし$マッチは常に文字列全体に割り当てられていますか？

Answer 1

Frugal（貪欲でないまたは怠け者ともいう）とは、「最短」を意味しますが、「最も左」です。あなたは他のマッチを見つけるために、ルック周りアサーションを必要とする：

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

Answer 2

いくつかの方法があり、内側TTATGに取得するには。

1つは^.*(TTATG.+?CCATT)で、最後にはが最後にになります。

もう1つは(TTATG(?:(?!TTATG).)*?CCATT)で、ネストされていないペアが見つかります。

あなたの場合、どちらも同じことになります。

（もしあなたが重なって一致が実際に私はそれはおそらく間違った前提だと言うだろう
ここのお手伝いをします。考える何らかの理由で）

Answer 3

.+?GCTTCTTATGCCCACACACACCCACTCACCが.+?が位置に一致させることができる少なくともあるのでGCTTCTTATGCCCACACACACCCACTCACCと一致しました5（ここでは、TTATGはオフ）、残りのパターンが一致することができます。

---

次のいずれかの、おそらく最後の1をしたい：(?:STRING)がCHARにあるよう

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

(?:(?!STRING).)*は[^CHAR]*にあります。