se corrisponde trovato passare a una linea particolare in perl
Ciao esperti,
Io sono per il novizio perl, Proprio curioso di sapere come effettuare le seguenti operazioni in perl.
supponiamo che io ve uno file txt, come qui di seguito. quando si fonda "* Main Start"
Allora vai a "* Main Fine ,,,,,,,," patteren e solo raccogliere il numero dalla precedente linea di "* Main Fine ,,,,,,," schema. Nel mio caso è 5. Poi inizia excuting normalmente dal "* Main Start" posizione
In seguito è l'immagine .. I dont desidera creare qualsiasi file temporaneo anche ..
Il file di input:
Codice:
*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,,,,,,,,
uscita:
Codice:
*Init End
*Main Start
repeat(5);
process all lines as usual here.
............
*Main End,,,,,,,,,
Io ve per stampare tutte le righe, come quando si è trovato una riga che inizia con *. Questo è il motivo per cui sto facendo, come qui di seguito
Codice:
if(m/^\*/){
print "//", $_;
next;
}
Codice:
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;
Qualsiasi aiuto più appriciated ..
saluti,
user_prady
Last edited by user_prady; 03-28-2008 at 12:51 AM..
|
Più di UNIX e Linux Forum Argomenti potreste trovare utili
Powered by 
03-27-2008
Threaded Mode
