Dizin işlevinde düzenli ifade

Question

Bir metin dosyasında "CCGTCAATTC (A | C) TTT (A | G) AGT" oluşumu arıyorum.

$text = 'CCGTCAATTC(A|C)TTT(A|G)AGT'; if ($line=~/$text/){ chomp($line); $pos=index($line,$text); }

Arıyor çalışıyor ama doğrultusunda "metin" konumunu elde edebilir değilim. Dizin, normal bir ifadeyi alt dizgi olarak kabul etmiyor gibi görünüyor.

Bu işi nasıl yapabilirim? Teşekkürler

Answer 1

@- dizisi, son başarılı eşleşmenin başlangıç ​​konumlarının ofsetlerini tutar. İlk eleman tüm eşleşen modelin ofsetidir ve sonraki elemanlar parantezize edilmiş alt-desenlerin ofsetidir. Yani, bir eşleşme olduğunu biliyorsanız, ofsetini $-[0] olarak alabilirsiniz.

Answer 2

index'u kullanmanız gerekmez, sadece bir regex. Regex eşlemenizden önce gelen $line bölümü, $` (veya İngilizce'yi kullanmayı seçtiyseniz $PREMATCH) 'da saklanır. Sen $` uzunluğunu kontrol ederek maçın endeksi alabilirsiniz ve size $& (veya $MATCH) değişkeninden maçı kendisi alabilirsiniz: Kalan eşleşen devam etmek $pos almak istiyorum varsayarsak

$text = 'CCGTCAATTC(A|C)TTT(A|G)AGT'; 
if ($line =~ /$text/) { 
    $pos = length($PREMATCH); 
} 

$line bölümünün bir parçası olan $' (veya $POSTMATCH) değişkenini, eşlemeden sonra gelen $line kısmını almak için kullanabilirsiniz.

Bu özel değişkenler hakkında ayrıntılı bilgi için bkz http://perldoc.perl.org/perlvar.html.

Answer 3

Yorumlarınıza dayanarak, yaptığınız maçın hemen ardından 50 karakterle eşleşiyor gibi görünüyor. Yani, basit bir çözüm olacaktır:

my ($match) = $line =~ /CCGTCAATTC[AC]TTT[AG]AGT(.{50})/; 

Gördüğünüz gibi, [AG]A|G eşdeğerdir. Birden çok kez eşleştirmek isterseniz, @matches dizisini ve normal ifadede /g genel seçeneğini kullanabilirsiniz. Örneğin.

my @matches = $line =~ /CCGTCAATTC[AC]TTT[AG]AGT(.{50})/g; 

Sen eşleştirme kalıbını tutmak için bunu yapabilirsiniz:

my ($pattern, $match) = $line =~ /(CCGTCAATTC[AC]TTT[AG]AGT)(.{50})/g; 

Ya bir döngü içinde:

while ($line =~ /(CCGTCAATTC[AC]TTT[AG]AGT)(.{50})/g;) { 
    my ($pattern, $match) = ($1, $2); 
} 

Answer 4

while ($line =~ /(CCGTCAATTC[AC]TTT[AG]AGT)(.{50})/g;) { 

Hoşuma fakat while hiçbir ;.

Hataların nedenini bulmakta zor zamanlar geçirdim. T_T.