İki örtüşen paternin Perl ile eşleşmesi

Question

Umarım bu soruyu zaten bir başkası tarafından yaratmadım, çünkü sitenin hemen her yerine bakmaya çalıştım ama bir cevap bulamadım.

Sorunum: Ben her olay tek veya bir dizede başka model arasında konumunu tespit etmek için olan bir PERL komut yapıyorum. Örneğin

:

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

Bu durumda, ben 4 eşleşmeleri dönmek benim programı istiyorum. ("Beta", "alfa")

$string =~ /beta|alpha/g; 

Ancak zaman iki desen, çünkü parça, kısmen üst üste edilir:

bu kolayca Bir şekilde, bu gibi eşleme operatörü kullanılarak elde edilebilir olduğu düşünülmektedir yeni gönderdiğim kodun ikinci kalıpla çakıştığı zaman ilk kalıbın oluşumunu atlar.

E.g. ? Ben böyle bir dize varsa: sadece bunun yerine = operatörü ile bir şeyler yapmaya çalıştık 4.

3 eşleşmeleri döndürür

$string = "betalphabetabeta"; 

ama çift yönetemez OR operatörü ile doğru şekilde ...

Herhangi bir çözümü olan var mı? Yardım ettiğin için teşekkür ederim!

Answer 1

çalışır çalışması gerekir Bu ne denir ki).

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

$_ = "betalphabetabeta"; 

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

Baskılar:

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

Answer 2

Sen inanıyorum (looakahead kullanmak ve perl'de Test edilmedi maçları

(?=beta|alpha) 

sayısını saymak zorunda ama

şu sıfır genişlikli iddiasını kullanan here