hvis kampen fant gå til en bestemt linje i Perl

		UNIX og Linux Forums > Top Forums > Shell programmering og Skripting
Hvis match funnet gå til en bestemt linje i perl

google unix.com

Marker forumene som lest

Shell programmering og Skripting Post spørsmål om ksh, csh, SH, Bash, Perl, PHP, SED, awk og ANDRE shell scripts og Shell skriptespråk her.

Mer UNIX og Linux Forum Emner Du kan finne nyttig
Tråd	Tråd startet	Forum	Svar	Siste innlegg
sed: finne match og slett linjen ovenfor	cstovall	Shell programmering og Skripting	3	07-02-2008 11:31
Perl: Match en linje med flere søk mønstre	Juha	Shell programmering og Skripting	10	04-09-2008 02:43
Flere linje samsvarer bruker sed	SiftinDotCom	Shell programmering og Skripting	15	03-28-2008 02:12
les og matche flere linjer i perl	zx1106	Shell programmering og Skripting	5	03-14-2008 10:21
sed - Erstatt Line som inneholder mønsteret samsvarer med en ny linje	kousikan	Shell programmering og Skripting	2	03-24-2007 07:24


	Powered by

LinkBack

Thread Tools

Søk i denne tråden

Rate Thread

Visningsmoduser

#1 (permalink)

03-27-2008

user_prady user_prady is offline

Registrert bruker

Bli Dato: Sep 2007

Innlegg: 163

Hvis match funnet gå til en bestemt linje i perl

Hei Experts,

Jeg er nybegynner til perl, Å bare nysgjerrig vite hvor å gjøre følgende i perl.
vel har jeg en txt-fil som nedenfor. når det grunnla "* Main Start"
Deretter går du til "* Main End ,,,,,,,," patteren og bare samle inn tall fra den forrige linjen "* Main End ,,,,,,," mønster. I mitt tilfelle er det 5. Deretter starter excuting normalt fra "* Main Start" stilling

Følgende er bildet .. I dont vil opprette en midlertidig fil også ..
Inndatafilen:

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

utgang:

Code:

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

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

Jeg har å skrive ut alle linjer som det er når det funnet en linje som starter med *. Dvs hvorfor jeg gjør like 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;

Alle hjelpe mest appriciated ..

hilsen,
user_prady

Sist endret av user_prady; 03-28-2008 kl 12:51..

Hugseliste

Thread Tools	Søk i denne tråden
Vis Printable Version Email denne siden	Søk i denne tråden: Avansert søk
Visningsmoduser	Ranger denne tråden
Switch to Linear Mode Bytt til hybridmodus Gjengede Mode	Ranger denne tråden: