इंडेक्स फ़ंक्शन

Question

में नियमित अभिव्यक्ति मैं एक पाठ फ़ाइल में "CCGTCAATTC (ए | सी) टीटीटी (ए | जी) एजीटी" की घटना की तलाश में हूं।

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

खोज काम कर रहा है, लेकिन मैं "पाठ" लाइन में की स्थिति को प्राप्त करने में सक्षम नहीं हूँ। ऐसा लगता है कि इंडेक्स एक नियमित अभिव्यक्ति को सबस्ट्रिंग के रूप में स्वीकार नहीं करता है।

मैं यह काम कैसे कर सकता हूं। धन्यवाद

Answer 1

@- सरणी अंतिम सफल मैच की शुरुआती स्थिति के ऑफसेट रखती है। पहला तत्व पूरे मिलान पैटर्न का ऑफसेट है, और बाद के तत्व कंटेनरयुक्त उप-पैटर्न के ऑफसेट हैं। इसलिए, यदि आप जानते हैं कि एक मैच था, तो आप इसे ऑफ़सेट $-[0] के रूप में प्राप्त कर सकते हैं।

Answer 2

आपको index का उपयोग करने की आवश्यकता नहीं है, बस एक रेगेक्स। $line का हिस्सा जो आपके रेगेक्स मैच से पहले आता है $` (या $PREMATCH में संग्रहीत किया जाएगा यदि आपने अंग्रेज़ी का उपयोग करना चुना है;)। आप $` की लंबाई की जाँच करके मैच के सूचकांक प्राप्त कर सकते हैं, और आप $& (या $MATCH) अलग-अलग से मैच में ही प्राप्त कर सकते हैं: मान लें कि आप शेष पर मिलान जारी रखने के लिए $pos प्राप्त करना चाहते हैं

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

$line का हिस्सा, आप $' (या $POSTMATCH) चर का उपयोग कर सकते हैं ताकि $line का हिस्सा प्राप्त हो सके जो मैच के बाद आता है।

इन विशेष चरों पर विस्तृत जानकारी के लिए http://perldoc.perl.org/perlvar.html देखें।

Answer 3

आपकी टिप्पणियों के आधार पर, ऐसा लगता है कि आप मैच के बाद सीधे सीधे 50 वर्णों से मेल खाते हैं। तो, एक सरल समाधान होगा:

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

जैसा कि आप देख, [AG]A|G के बराबर है। यदि आप कई बार मिलान करना चाहते हैं, तो आप रेगेक्स पर @matches, और /g वैश्विक विकल्प का उपयोग कर सकते हैं। जैसे

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

आप से मेल खाते नमूने रखने के लिए ऐसा कर सकते हैं:

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

या एक पाश में:

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;) { 

मुझे यह पसंद है, लेकिन while में कोई ;।

मुझे त्रुटियों के कारण की खोज करने में कठिन समय था। T_T।