perl-Lesen-Datei und greifen spezifische Linien

Ich habe eine text Datei und ich packen möchte bestimmte Zeilen, beginnend mit einem Muster und endet mit einem bestimmten Muster.
Beispiel:

Text
Text
Startpattern
print this line
Print this line
print this line
Endpattern
Text
Text
Text

Start-Muster und das Ende-Muster gedruckt werden soll. Mein Erster Versuch war nicht wirklich erfolgreich:


my $LOGFILE = "/var/log/logfile";
my @array;
# open the file (or die trying)

open(LOGFILE) or die("Could not open log file.");
foreach $line () {
  if($line =~  m/Sstartpattern/i){
    print $line;
    foreach $line2 () {
      if(!$line =~  m/Endpattern/i){
        print $line2;
      }
    }
  }
}
close(LOGFILE);

Dank im Voraus für Eure Hilfe.

Ich weiß, dass tief unten, wenn Sie schrieb: "could not open log file"., Sie soll schreiben, "Konnte nicht geöffnet werden $LOGFILE: $!".

InformationsquelleAutor Stefan | 2011-03-22

  1. 2

    Wie wäre es damit: 

    #!perl -w
use strict;

my $spool = 0;
my @matchingLines;

while (<DATA>) {
    if (/StartPattern/i) {
        $spool = 1;
        next;
    }
    elsif (/Endpattern/i) {
        $spool = 0;
        print map { "$_ \n" } @matchingLines;
        @matchingLines = ();
    }
    if ($spool) {
        push (@matchingLines, $_);
    }
}

__DATA__

Text
Text
Startpattern
print this line
Print this line
print this line
Endpattern
Text
Text
Text
Startpattern
print this other line
Endpattern

    Wenn Sie möchten, dass die start-und end-Muster auch gedruckt werden, fügen Sie die push-Anweisungen in if-block als gut.

    Perfekt. Ich danke Ihnen sehr. Jetzt habe ich nur noch ein problem 🙂 Wie kann ich einstellen, dynamische arraynames und drucken Sie jedes array nach ich packte alle übereinstimmenden Zeilen hinein?
    Ich bin ziemlich neu in perl mich und ich habe nicht ganz verstanden die Frage. Wenn man erklären kann, in ein wenig mehr detail auf, was Ihre Anforderung ist, vielleicht kann ich helfen.

    InformationsquelleAutor Bee

  2. 14

    Können Sie die Skalare bereichsoperator:

    open my $fh, "<", $file or die $!;

while (<$fh>) {
    print if /Startpattern/ .. /Endpattern/;
}
    Hi,das klingt ziemlich gut, aber ich habe mehrere Gruppen mit start-und endpatterns.
    scalar .. sollte funktionieren für eine beliebige Anzahl von Gruppen innerhalb der Datei

    InformationsquelleAutor Eugene Yarmash

  3. 1

    Sowas?

    my $LOGFILE = "/var/log/logfile";
open my $fh, "<$LOGFILE" or die("could not open log file: $!");
my $in = 0;

while(<$fh>)
{
    $in = 1 if /Startpattern/i;
    print if($in);
    $in = 0 if /Endpattern/i;
}
    Leider druckt er nur die Zeile passend zu den startpattern. Ich muss zum drucken der startpattern, den text zwischen dem start-und dem endpattern und auch die endpattern. Ich habe mehrere Gruppen mit startpattern,text,text,text,endpattern
    Sind Sie sicher? Scheint zu funktionieren gut für mich: pastebin.com/nyfGr0my
    Sorry, mein Fehler. Ich vergaß, um eine Zeile zu löschen. Wie kann ich der Gruppe diese Einträge in mehrere Felder?
    Ich arbeite auch auf ähnliche Dinge , aber die Lösung erwähnt, die von eugene-y auch drucken startpattern und end-Muster , die wir nicht wollen , wie können wir negieren Sie, bitte vorschlagen.

    InformationsquelleAutor jho

Schreibe einen Kommentar