hvis match fundet gå til en bestemt linje i perl

user_prady · #1 (**permalink**) 03-27-2008

Hej Eksperter,

Jeg er newbie til perl, Bare nysgerrig vide, hvordan du gøre følgende i perl.
formoder jeg ve en txt-fil som nedenfor. når det grundlægger "* Main Start"
Så gå til "* Main End ,,,,,,,," patteren og kun indsamle tal fra den foregående linje "* Main End ,,,,,,," mønster. I mit tilfælde er det 5. Så starter excuting normalt fra "* Main Start" holdning

Følgende er billedet .. I dont vil oprette en midlertidig fil også ..
Input fil:

Code:

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

output:

Code:

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

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

Jeg ve at udskrive alle linjer, som det er, når det findes en linje, der starter med *. Thats hvorfor jeg laver gerne nedenfor

Code:

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

Code:

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;

Enhver form for hjælp mest appriciated ..

hilsen,
user_prady

Mere UNIX og Linux Forum Emner du måske kan finde Helpful
Tråd	Thread Starter	Forum	Svar	Last Post
sed: find match og slette ovenstående linje	cstovall	Shell Programmering og Scripting	3	07-02-2008 10:31 PM
Perl: Match en linje med flere søgning mønstre	Juha	Shell Programmering og Scripting	10	04-09-2008 01:43 AM
Multiple linje matcher bruge sed	SiftinDotCom	Shell Programmering og Scripting	15	03-28-2008 02:12 PM
læse og matche flere linjer i perl	zx1106	Shell Programmering og Scripting	5	03-14-2008 10:21 PM
sed - Erstat Line, som indeholder de Mønster match med en ny linje	kousikan	Shell Programmering og Scripting	2	03-24-2007 07:24 AM

Thread Tools	Søg denne tråd
Vis Printvenlig Version Email denne side	Søg denne tråd: Avanceret søgning
Display Modes	Bedøm denne tråd
Switch to Linear Mode Switch to Hybrid Mode Gevindskårne Mode	Bedøm denne tråd:


	Powered by