si se han encontrado resultados para ir en una determinada línea de perl

user_prady · #1 (**Enlace permanente**) 03-27-2008

Hola Expertos,

Soy novato a perl, Solo curiosidad por saber cómo hacerlo en los siguientes perl.
Supongo que me ve a txt como a continuación. cuando se funda "* Principal Inicio"
Luego vaya a "* Fin principal ,,,,,,,," patteren y sólo recoger el número de la línea anterior de "* Fin principal ,,,,,,," patrón. En mi caso es 5. A continuación, inicie excuting normalmente a partir de la "* Principal Inicio" posición

Lo que sigue es la imagen .. No quiero crear ningún archivo temporal también ..
Archivo de entrada:

Código:

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

salida:

Código:

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

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

He de imprimir todas las líneas, ya que es cuando se encuentra una línea que parte con *. Es por eso que estoy haciendo, como a continuación

Código:

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

Código:

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;

Cualquier ayuda appriciated más ..

recuerdos,
user_prady

Más UNIX y Linux Foro Temas usted puede encontrar útiles
Hilo	Hilo para principiantes	Foro	Respuestas	Último mensaje
sed: encontrar partido y eliminar la línea anterior	cstovall	Programación de scripts de shell y	3	07-02-2008 11:31 PM
Perl: Partido de una línea con varios patrones de búsqueda	Juha	Programación de scripts de shell y	10	04-09-2008 02:43 AM
Coinciden con varias líneas usando sed	SiftinDotCom	Programación de scripts de shell y	15	03-28-2008 02:12 PM
leer y combinar múltiples líneas en perl	zx1106	Programación de scripts de shell y	5	03-14-2008 10:21 PM
sed - Sustituir la línea que contiene el patrón coincide con una nueva línea	kousikan	Programación de scripts de shell y	2	03-24-2007 07:24 AM

Herramientas de hilo	Buscar en este Hilo
Mostrar Versión para imprimir Enviar esta página	Buscar en este Hilo: Búsqueda avanzada
Modos de visualización	Vota a este hilo
Cambiar a modo lineal Cambiar a modo híbrido Modo de rosca	Vota a este hilo:


	Powered by