Hallo deskundigen,

Ik ben newbie aan perl, Gewoon nieuwsgierig om te weten hoe je het volgende in perl.
stel ik heb een txt bestand, zoals hieronder. wanneer het sticht "* Belangrijkste Start"
Ga vervolgens naar "* Belangrijkste Einde ,,,,,,,," patteren en net verzamelt de nummer uit de vorige regel van "* Belangrijkste Einde ,,,,,,," patroon. In mijn geval is het 5. Dan beginnen excuting normaal gesproken uit de "* Belangrijkste Start" positie

Hieronder de foto .. I dont wilt maken een tijdelijk bestand ook ..
Input file:

*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;

Hoi vrienden is er toch om dat te doen. Pls help ..

Bedankt

Zijn niet afhankelijk van mij, ik moet terug te gaan naar mijn dagelijks werk binnenkort.

Er is een aantal manieren om dit te doen, natuurlijk. De ouderwetse variant zou zijn om te onthouden de vorige regel en print dat wanneer je de terminator. De echt bruut Perl aanpak zou zijn om Slurp het hele bestand en vervangingstechnologieën alles met een lege string met uitzondering van de regel vóór de terminator. Er is een in de Perl Veelgestelde vragen over; perlfaq6 en ga rond voor vragen. (De vraag over C opmerkingen verderop in de pagina heeft een aantal tips, too.)

Maar de "vorige regel" oplossing is absoluut de eenvoudigste in dit geval, als u geen verdere eisen.

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

Thanks a lot Era voor uw vriendelijkheid .. Ik kom proberen uw genoemde manier ..

Ik denk niet dat ik gevangen al uw eisen correct maar het is tenminste een begin. Als ik mag raden, wat zouden makkelijkste is het verzamelen van de output in een variabele en afdrukken nadat u hebt gezien * Belangrijkste End en uitgeprint de lijn die onmiddellijk voorafgegaan is.

Ik probeerde bijna alle manier met behulp van de volgende, redo en laatste opdracht in perl , Maar ik kan niet deze syntaxis correct in perl. Ik weet dat het simpel is, maar nog steeds I cant vinden de efficiënte wijze gebruik te maken terwijl en volgende verklaring in perl.

Ik probeer te doen follwoing in 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