Hallo Experten,

Ich bin Neuling auf perl, Einfach nur neugierig zu wissen, wie die folgenden im perl.
Angenommen, ich ve eine TXT-Datei wie unten. wenn sie gründet "* Main Start"
Dann gehen Sie zu "* Main Ende ,,,,,,,," patteren sammeln und nur die Anzahl der vorherigen Zeile "* Main Ende ,,,,,,," Muster. In meinem Fall ist es 5. Dann starten Sie excuting der Regel aus dem "* Main Start" Position

Im Anschluss ist das Bild .. Ich möchte nicht zu einer temp-Datei auch ..
Input-Datei:

*Init End
*Main Start
*Comment Reset Timers
000000,0000,0,0,0,0,0,1,0
000000,0000,0,0,0,0,1,1,0 
*Comment Control Frame at 1.04596 ms
000000,0400,0,0,0,0,1,0,1
2418A4,0000,0,1,3,0,0,0,0 
049C00,0000,0,0,2,0,0,0,0
*Comment Control Frame at 1.04673 ms
*Comment Control Frame at
000002,0000,0,0,0,0,1,0,1
241002,0000,0,1,3,0,0,0,0
000100,0000,0,0,2,0,0,0,0
*Comment Control Frame at
000004,0000,0,0,0,0,1,0,1
241002,0000,0,1,3,0,0,0,0
000000,0000,0,0,2,0,0,0,0
*Comment Frame 13 at ** us,,,,,,,,
000005,7E3D,0,0,0,0,1,0,1
*Main End,,,,,,,,

*Init End
*Main Start
 repeat(5);
process all lines as usual here.

............
*Main End,,,,,,,,,

 if(m/^\*/){
              print "//", $_;
              next;
    }

Basic Algorithm of my programme need :
1. If "*Main Start" pattern found go to line where Pattern matches "*Main end".
2. Get the previous line. and get the value of the first field.
3. Return to "*Main start" position again. & Print repeat(that number) : in my case it is 5 :
4. stop/next;

Hallo Freunde ist es überhaupt zu tun. Pls help ..

Danke

Hängen nicht von mir, ich muss gehen zurück zu meinem Job bald.

Es gibt eine Reihe von Möglichkeiten, dies zu tun, natürlich. Die altmodische Variante wäre zu erinnern, der vorherigen und drucken, wenn Sie sehen, den Terminator. Die wirklich Brute Perl Ansatz wäre, schlürfen die gesamte Datei und ersetzen alles, was mit einem leeren String mit Ausnahme der Linie vor dem Terminator. Es ist eine in der Perl FAQ zu diesem; perlfaq6 und blättern Sie um und damit zusammenhängende Fragen. (Die Frage nach der C Bemerkungen weiter unten die Seite ein paar Tips geben.)

Aber die "vorherige Zeile"-Lösung ist die einfachste in diesem Fall, wenn Sie keine weiteren Anforderungen.

perl -ne 'BEGIN { $matching = 0; }
  $matching = 1 if (m/^\*Main Start/);
  next unless $matching;
  print $prev if (defined $prev && m/^\*Main End/);
  $prev = $_'

Vielen Dank für Ihre Zeit Güte .. Ich komme bald versuchen Sie erwähnten Art und Weise ..

Ich glaube nicht, dass ich gerade gemacht haben alle Ihre Anforderungen korrekt, aber zumindest ist es ein Anfang. Wenn ich zu erraten, was wäre am einfachsten ist, sammeln die Ausgabe in einer Variable und drucken Sie es aus, nachdem Sie gesehen haben * Main End und ausgedruckt die Linie, die unmittelbar vor ihr.

Ich habe fast alle Art und Weise mit anderen, und Redo letzte Befehl in perl , Aber ich kann nicht richtig in diese Syntax perl. Ich weiß, das ist wirklich einfach, aber dennoch kann ich die effiziente Art und Weise mit, während und in der nächsten perl.

Ich versuche zu tun, die in folgenden perl

nawk ' {
        if($0 ~ /^\*Main Start/){
	     while( $0 !~ /^\*Main End/){
	     print $0;
             getline;
        }
     }
 } ' my.txt

TMP=/tmp/my_tmp$$
nawk '
/\*Main End/{
split(x,arr,",")
print "Loop  " arr[1]
};
{x=$0
}
' my.txt > $TMP 

nawk '{
if($0 ~ /^Loop/){
    loop = $2 
    next;
  }
if($0 ~ /^\*Main Start/){
     printf "\nrepeat ("
     print  loop

} ' $TMP $my.txt