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 302180394 by user_prady on Monday 31st of March 2008 03:38:57 AM
Old 03-31-2008
Quote:
Originally Posted by KevinADC
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,,,,,,,,

Yes Kevin . I am pretty close to my goal but one thing that I want the number (ie, 000005) when *Main Start pattern found .

Regards,
user_prady
 

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_videocoloryuv444int_to_argbint

mlib_VideoColorYUV444int_to_ARGBint(3MLIB)		    mediaLib Library Functions			mlib_VideoColorYUV444int_to_ARGBint(3MLIB)

NAME

       mlib_VideoColorYUV444int_to_ARGBint - color convert YUV interleaved to ARGB interleaved

SYNOPSIS

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

       void  mlib_VideoColorYUV444int_to_ARGBint(mlib_u32 *ARGB, const mlib_u8 *YUV, const mlib_u8 *A_array, mlib_u8 A_const, mlib_s32 w, mlib_s32
       h, mlib_s32 dlb, mlib_s32 slb, mlib_s32 alb);

DESCRIPTION

       The YUV pixel stream is converted into an ARGB 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:

       ARGB	       Pointer to output buffer.

       YUV	       Pointer to Y 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 buffer.

       alb	       Linebytes for alpha buffer.

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_VideoColorYUV444seq_to_ABGRint(3MLIB),    mlib_VideoColorYUYV422int_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_VideoColorYUV444int_to_ARGBint(3MLIB)
All times are GMT -4. The time now is 03:19 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy