perl - How do I collect the lines between two key words? -
स्टार्ट
लम्बाई: 1432 आरआईएडेंटिफायर: 4 विदेंटिफायर: 4 प्रारूप: 5 टीएस संख्या: 9 डीएचआईएडर संस्करण = 1 लंबाई = 1432 कमांड कोड = आरटीटी (0xd0) कमांड कोड = लेखा-अनुरोध (271) आवेदन आईडी = आरएफ-आवेदन (3) हॉप होप आईडी = 51 एंड टू एंड एंड एंड एंड = 8847360 स्टार्ट की लंबाई: 12 रिडेंटिफायर : 2 विदेंटिफायर: 4 प्रारूप: 5 टीएस नंबर: 6 डीएचआईईडर संस्करण = 1 लंबाई = 1432 कमांड फ्लैक्स = आरपीटी (0xd0) कमांड कोड = लेखा-अनुरोध (271) आवेदन आईडी = आरएफ-एप्लिकेशन (3) हॉप होप आईडी = 51 एंड टू एंड एंड आईडी = 8847360 स्टार्ट
मुझे START
के बीच मिलती हुई सभी पंक्तियों को इकट्ठा करने की आवश्यकता है और इसे 2 फाइल्स में लिखें। मैंने पर्ल में फ्लिप फ़्लॉप की तरह कोशिश की:
खुले (फ़ाइल, $ एआरजीवी [0]); जबकि (& lt; FILE & gt;) {if (/ START / .. / START /) {प्रिंट "$। $ _ \ N"; }}
लेकिन मुझे केवल उन पंक्तियां मिल रही हैं जिनके पास START
है क्या आप कृपया मेरी मदद कर सकते हैं?
...
#! / Usr / bin / perl सख्त का उपयोग करें; चेतावनियों का उपयोग करें; मेरा $ आउटपुट; जबकि (& lt; डेटा & gt;) {यदि (/ स्टार्ट /) {if (परिभाषित $ आउटपुट) {print $ output; $ आउटपुट = ''; प्रिंट "=" एक्स 80, "\ n"; } आगामी; } और {$ आउटपुट। = $ _; }} __DATA__ स्टार्ट की लंबाई: 1432 आरआईडेंटिफायर: 4 विदेंटिफायर: 4 प्रारूप: 5 टीएस नंबर: 9 डीएचडीईआर संस्करण = 1 लंबाई = 1432 कमांड फ्लैक्स = आरपीटी (0xd0) कमांड कोड = लेखा-अनुरोध (271) आवेदन आईडी = आरएफ-आवेदन ( 3) हॉप द्वारा हॉप आईडी = 51 एंड टू एंड एंड = 8847360 स्टार्ट की लंबाई: 12 आरआईडेंटिफायर: 2 विदेंटिफायर: 4 प्रारूप: 5 टीएस नंबर: 6 डीएचडीएयर वर्जन = 1 लंबाई = 1432 कमांड फ्लैक्स = आरपीटी (0xd0) कमांड कोड = अकाउंटिंग- अनुरोध (271) आवेदन आईडी = आरएफ-एप्लिकेशन (3) हॉप होप आईडी = 51 एंड टू एंड एंड आईडी = 8847360 स्टार्ट
आउटपुट:
लम्बाई : 1432 आरआईडेंटिफायर: 4 विदेंटिफायर: 4 प्रारूप: 5 टीएस नंबर: 9 डीएचडीईयर वर्जन = 1 लंबाई = 1432 कमांड कोड = आरपीटी (0xd0) कमांड कोड = लेखा-अनुरोध (271) आवेदन आईडी = आरएफ-एप्लिकेशन (3) हॉप होप आईडी = 51 एंड टू एंड एंड = 8847360 ========================================= ======================================= लंबाई: 12 आरआईडेंटिफायर: 2 विदेंटिफ़ायर: 4 प्रारूप: 5 टीएस नंबर: 6 डीएचडीईयर वर्जन = 1 लंबाई = 1432 कमांड फॉर्ब्स = आरपीटी (0xd0) कमांड कोड = लेखा-अनुरोध (271) आवेदन आईडी = आरएफ-एप्लिकेशन (3) हॉप होप आईडी = 51 एंड टू एंड एंड आईडी = 8847360 ============================================== ===================================
Comments
Post a Comment