Perl script to match a pattern and print lines Post: 302269881

Sponsored Content

Top Forums Shell Programming and Scripting Perl script to match a pattern and print lines Post 302269881 by summer_cherry on Friday 19th of December 2008 12:20:37 AM

12-19-2008

Registered User

Hi, below package contains serverl method, 'getLinesAfterString' may address your issue.

Code:

package LeoFile;
sub new{
	return bless {};
}
sub _open{
	my $file=shift;
	open FH,"<$file";
}
sub _close{
	close FH;
}
sub _checkPattern{
	my($ref,$pat)=(@_);
	@tmp=@{$ref};
	print "@{$ref}" if($matched==1);
}	
sub getLinesAfterString{
	shift;
	my($file,$str,$line)=(@_);
	_open($file);
	my $cnt;
	while(<FH>){
		$flag=1 if(m/$str/);
		if($flag && $cnt<$line){
			print $_;
			$cnt++;
		}
		else{
			$cnt=0;
			$flag=0;
			next;			
		}
	}
	_close;
}
sub getLinesBetweenString{
	shift;
	my($file,$str1,$str2)=(@_);
	_open($file);
	while(<FH>){
		$flag=1 if(m/$str1/);
		print if ($flag==1);
		$flag=0 if(m/$str2/);
	}
	_close;
}
sub getLinesBetweenStringContainPattern{
	shift;
	my($file,$str1,$str2,$pat)=(@_);
	_open($file);
	while(<FH>){
		$flag=1 if(m/$str1/);
		push @arr,$_ if($flag==1);
		$matched=1 if(m/$pat/);
		if(m/$str2/){
			$flag=0;
			_checkPattern(\@arr,$matched);
			undef @arr;
			$matched=0;
		}
	}
	_close;
}
1

summer_cherry

View Public Profile for summer_cherry

Find all posts by summer_cherry

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl: Printing Multiple Lines after pattern match

Hello People, Need some assistance/guidance. OUTLINE: Two files (File1 and File2) File1 has some ids such as 009463_3922_1827 897654_8764_5432 File2 has things along the lines of: Query= 009463_3922_1827 length=252 (252 letters) More stufff here ...

2. Shell Programming and Scripting

sed print all lines after pattern match

HiCan someone show me how to print all lines from a file after a line matching a pattern using sed?Thanks

3. Shell Programming and Scripting

print chunk of lines only if there is a pattern match in between them

Hi All, Please find the sample file below: NAME ID NUMBER -------------------------------------------------------------------------------------------------- --------- abcdefgheija;lksdf ...

4. Shell Programming and Scripting

print lines with exact pattern match

I have in a file domain.com. 1909 IN A 1.22.33.44 domain.com. 1909 IN A 22.33.44.55 ns1.domain.com. 1699 IN A 33.44.55.66 ns2.domain.com. 1806 IN A 77.77.66.66 I need to "grep" or "awk" out the lines starting with domain.com. as follows. domain.com. 1909 IN A 1.22.33.44 domain.com....

5. Shell Programming and Scripting

perl script print the lines between two pattern

i have a file as below sample.pl parameter1 argument1 argument2 parameter2 I want out as below argument1 argument2 that is , i want to print all the lines between parameter1 & parameter 2. i tried with the following if($mystring =~ m/parameter1(.*?)parameter2/)

6. Shell Programming and Scripting

Print lines before and after pattern match

I am using Solaris, I want to print 3 lines before pattern match pattern 5 lines after pattern match Pattern is abcd to be searched in a.txt. Looking for the solution in sed/awk/perl. Thanks .. Input File a.txt: ================= 1 2 3 abcd 4 5 6 7 8

7. Shell Programming and Scripting

Need one liner to search pattern and print everything expect 6 lines from where pattern match made

i need to search for a pattern from a big file and print everything expect the next 6 lines from where the pattern match was made.

8. Shell Programming and Scripting

Print lines that do not match the pattern

I need to print the lines that do not match a pattern. I tried using grep -v and sed -n '/pattern/!p', but both of them are not working as I am passing the pattern as variable and it can be null some times. Example ........ abcd...... .........abcd...... .........abcd.........

9. Shell Programming and Scripting

awk print pattern match line and following lines

Data: Pattern Data Data Data Data Data Data Data Data Data ... With awk, how do I print the pattern matching line, then the subsequent lines following the pattern matching line. Varying number of lines following the pattern matching line.

10. Shell Programming and Scripting

Match Pattern and print pattern and multiple lines into one line

Hello Experts , require help . See below output: File inputs ------------------------------------------ Server Host = mike id rl images allocated last updated density vimages expiration last read <------- STATUS ------->...

LEARN ABOUT MINIX

grep

GREP(1) 						      General Commands Manual							   GREP(1)

NAME

       grep - search a file for lines containing a given pattern

SYNOPSIS

       grep [-elnsv] pattern [file] ...

OPTIONS

       -e     -e pattern is the same as pattern

       -c     Print a count of lines matched

       -i     Ignore case

       -l     Print file names, no lines

       -n     Print line numbers

       -s     Status only, no printed output

       -v     Select lines that do not match

EXAMPLES

       grep mouse file	   # Find lines in file containing mouse

       grep [0-9] file	   # Print lines containing a digit

DESCRIPTION

       Grep  searches  one  or	more  files (by default, stdin) and selects out all the lines that match the pattern.  All the regular expressions
       accepted by ed and mined are allowed.  In addition, + can be used instead of * to mean 1 or more occurrences, ? can be used to mean 0 or  1
       occurrences,  and  |  can  be used between two regular expressions to mean either one of them.  Parentheses can be used for grouping.  If a
       match is found, exit status 0 is returned.  If no match is found, exit status 1 is returned.  If an error is detected,  exit  status  2	is
       returned.

SEE ALSO

       cgrep(1), fgrep(1), sed(1), awk(9).

																	   GREP(1)

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl: Printing Multiple Lines after pattern match

Discussion started by: Deep9000

2. Shell Programming and Scripting

sed print all lines after pattern match

Discussion started by: steadyonabix

3. Shell Programming and Scripting

print chunk of lines only if there is a pattern match in between them

Discussion started by: niel.verty

4. Shell Programming and Scripting

print lines with exact pattern match

Discussion started by: anilcliff