किसी फ़ाइल में स्ट्रिंग की अंतिम घटना को कैसे खोजें और इसके साथ अगली पंक्ति को perl . में कैसे लाएं

कुंजी उन पंक्तियों को रखना है जिन्हें आप एक बफर (सरणी) में प्रिंट करना चाहते हैं, यदि आप बाद में मैच पाते हैं तो उन्हें बदल दें।

my @buf;
my $keep = 0;
while (<>) {
   if (/ERROR/) {
      @buf = $_;    # Discard any earlier match in favour of this one.
      $keep = 1;    # Also keep one more line.
   }
   elsif ($keep) {
     --$keep;
     push @buf, $_;
   }
}

print(@buf);

उपरोक्त आमतौर पर आपके द्वारा पोस्ट की गई कमांड के समान व्यवहार करता है। हालांकि, इस घटना में कि ERROR वाले के बाद दो पंक्तियाँ हैं, उपरोक्त आपके द्वारा पोस्ट किए गए आदेश से भिन्न व्यवहार करता है।

log1:

ERROR foo1
foo2
meow
ERROR bar1
bar2
woof

log2:

ERROR foo1
foo2
meow
ERROR bar1

आपका आदेश:

$ grep -A1 ERROR log1 | tail -2
ERROR bar1
bar2

$ grep -A1 ERROR log2 | tail -2
--
ERROR bar1

मेरा कार्यक्रम:

$ ./last_error log1
ERROR bar1
bar2

$ ./last_error log2
ERROR bar1

यह शायद एक सुधार है।

लाइनों के 2 लंबे बफर आज़माएं:

my $match = "no error found";
my @a = ("", "");
while (<STDIN>) {
    @a = ($a[1], $_);
    $match = $a[1] if $a[0] =~ /^ERROR/i;
}
print $match;

यह अंतिम त्रुटि प्रिंट करता है (या "कोई त्रुटि नहीं मिली")। सभी त्रुटियों को प्राप्त करने के लिए, असाइनमेंट को लूप में मिलान करने के लिए प्रिंट स्टेटमेंट में बदलें।