Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: if match found go to a particular line in perl
Top Forums Shell Programming and Scripting if match found go to a particular line in perl Post 302180391 by KevinADC on Monday 31st of March 2008 03:19:44 AM
Old 03-31-2008
You could do something like this:

Code:
use strict;
use warnings;
my $flag = 0;
my $last_line;
while(<DATA>){
   if(/^\*Main Start/){
      $flag = 1;
   }
   elsif($flag && /^\*Main End/) {
         $numbers = (split(',',$last_line))[0];
         $last_line = '';
         $flag = 0; 
         print $numbers,"\n";
   }
   else {
      $last_line = $_;
      next;
   }
}	
__DATA__
*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,,,,,,,,

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl: Match a line with multiple search patterns

Hi I'm not very good with the serach patterns and I'd need a sample how to find a line that has multiple patterns. Say I want to find a line that has "abd", "123" and "QWERTY" and there can be any characters or numbers between the serach patterns, I have a file that has thousands of lines and... (10 Replies)
Discussion started by: Juha
10 Replies

2. Shell Programming and Scripting

help with script to send email and if subject line match is found

Help with script that will check log, then find a match is found, add that as the subject line. 1. The script will always run as a deamon.. and scan the event.log file 2. when a new 101 line is added to the event.log file, have the script check position 5,6 and 7 which is the job name, which... (2 Replies)
Discussion started by: axdelg
2 Replies

3. UNIX for Dummies Questions & Answers

awk display the match and 2 lines after the match is found.

Hello, can someone help me how to find a word and 2 lines after it and then send the output to another file. For example, here is myfile1.txt. I want to search for "Error" and 2 lines below it and send it to myfile2.txt I tried with grep -A but it's not supported on my system. I tried with awk,... (4 Replies)
Discussion started by: eurouno
4 Replies

4. UNIX for Dummies Questions & Answers

Display n lines after match found and other line

I have a file like this DoctorName Address1 Address2 DOB InsuredName Address1 Address2 DOB PatientName Address1 Address2 DOB ClaimNo1 DoctorName Address1 Address2 DOB InsuredName (2 Replies)
Discussion started by: nsuresh316
2 Replies

5. Shell Programming and Scripting

Displaying text till pattern match found in a line

Hi All, From the below line if we want to display all the text till found pattern dot/. I was trying with the below code but couldn't able to print text before the pattern. it display texts which is found after pattern. awk '/assed/{print;getline;print}' file_name | sed 's/^*. *//' input... (4 Replies)
Discussion started by: Optimus81
4 Replies

6. Shell Programming and Scripting

How to print the entire line if the mentioned match is found?

Hello Everyone, I have a file with 5 fields in each line just like mentioned below. Also the 4th field is time elapsed(hh:mm:ss) since the process is running xyz abc status 23:00:00 idle abc def status 24:00:00 idle def gji status 27:00:02 idle fgh gty status 00:00:00 idle Here I... (8 Replies)
Discussion started by: rahul2662
8 Replies

7. Shell Programming and Scripting

Perl removing line match with pattern in column

Hi, I have log like this: ... (1 Reply)
Discussion started by: justbow
1 Replies

8. Shell Programming and Scripting

Perl removing line match with pattern in column

Hi, I have log like this: ... (1 Reply)
Discussion started by: justbow
1 Replies

9. Shell Programming and Scripting

Add comment on last line if found match

Hi All, totally new on it , normally use it for just 1 line. i'm looking for help. i'm have 2 file. file 1 : -------------------------------------------------- c12 c1 c3 -------------------------------------------------- file 2: other content ... (10 Replies)
Discussion started by: kttan
10 Replies

10. UNIX for Beginners Questions & Answers

Modify text file if found multiple pattern match for every line.

Looking for help, i have input file like below and want to modify to expected output, if can without create additional file, hope can direct modify it. have 2 thing need do. 1st is adding a word (testplan generation off) after ! ! IPG: Tue Aug 07 14:31:17 2018 2nd is adding... (16 Replies)
Discussion started by: kttan
16 Replies

LEARN ABOUT SUNOS

mlib_videocoloryuv444seq_to_abgrint

mlib_VideoColorYUV444seq_to_ABGRint(3MLIB)		    mediaLib Library Functions			mlib_VideoColorYUV444seq_to_ABGRint(3MLIB)

NAME

       mlib_VideoColorYUV444seq_to_ABGRint - color convert YUV sequential to ABGR interleaved

SYNOPSIS

       cc [ flag... ] file... -lmlib [ library... ]
       #include <mlib.h>

       void  mlib_VideoColorYUV444seq_to_ABGRint(mlib_u32  *ABGR,  const  mlib_u8  *Y, const mlib_u8 *U, const mlib_u8 *V, const mlib_u8 *A_array,
       mlib_u8 A_const, mlib_s32 w, mlib_s32 h, mlib_s32 dlb, mlib_s32 slb);

DESCRIPTION

       The Y, U, V pixel streams are converted into an ABGR pixel stream.  All pixel components are 8-bit  unsigned  integers.	All  buffers  have
       dimensions w and h.

       The alpha values for this function work in the following fashion:

	 o  If A_array pointer is not NULL, the values are taken from there. It has to have the same dimensions as the Y buffer.

	 o  If A_array pointer is NULL, the alpha values for every pixel are set to A_const.

       The following equation is used:

       |R|   |1.1644  0.0000  1.5966|	[|Y|   | 16.0000|]
       |G| = |1.1644 -0.3920 -0.8132| * [|U| - |128.0000|]
       |B|   |1.1644  2.0184  0.0000|	[|V|   |128.0000|]

PARAMETERS

       The function takes the following arguments:

       ABGR	       Pointer to output buffer.

       Y	       Pointer to Y input buffer.

       U	       Pointer to U input buffer.

       V	       Pointer to V input buffer.

       A_array	       Array of alpha values.

       A_const	       Constant alpha value.

       w	       Image width in pixels.

       h	       Image height in lines.

       dlb	       Linebytes for output buffer.

       slb	       Linebytes for input buffers.

RETURN VALUES

       None.

ATTRIBUTES

       See attributes(5) for descriptions of the following attributes:

       +-----------------------------+-----------------------------+
       |      ATTRIBUTE TYPE	     |	    ATTRIBUTE VALUE	   |
       +-----------------------------+-----------------------------+
       |Interface Stability	     |Evolving			   |
       +-----------------------------+-----------------------------+
       |MT-Level		     |MT-Safe			   |
       +-----------------------------+-----------------------------+

SEE ALSO

       mlib_VideoColorYUV420seq_to_ARGBint(3MLIB),     mlib_VideoColorYUV411seq_to_ARGBint(3MLIB),     mlib_VideoColorYUV422seq_to_ARGBint(3MLIB),
       mlib_VideoColorYUV444seq_to_ARGBint(3MLIB),     mlib_VideoColorYUV420seq_to_ABGRint(3MLIB),     mlib_VideoColorYUV411seq_to_ABGRint(3MLIB),
       mlib_VideoColorYUV422seq_to_ABGRint(3MLIB),     mlib_VideoColorYUYV422int_to_ARGBint(3MLIB),    mlib_VideoColorYUV444int_to_ARGBint(3MLIB),
       mlib_VideoColorYUYV422int_to_ABGRint(3MLIB),    mlib_VideoColorYUV444int_to_ABGRint(3MLIB),    mlib_VideoColorUYVY422int_to_ARGBint(3MLIB),
       mlib_VideoColorUYVY422int_to_ABGRint(3MLIB),	mlib_VideoColorUYV444int_to_ARGBint(3MLIB),    mlib_VideoColorUYV444int_to_ABGRint(3MLIB),
       attributes(5)

SunOS 5.10							    10 Nov 2004 			mlib_VideoColorYUV444seq_to_ABGRint(3MLIB)
All times are GMT -4. The time now is 03:00 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy