Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Pattern matching in file and then display 10 lines above every time
Top Forums Shell Programming and Scripting Pattern matching in file and then display 10 lines above every time Post 302305964 by ghostdog74 on Friday 10th of April 2009 10:02:24 AM
Old 04-10-2009
Quote:
Originally Posted by KevinADC
I know sethcoop is trying to help but his perl code is not well written, here is what you want to do:

Code:
#!/usr/bin/perl
use strict;
use warnings;
my $lines = 10;
open(F, "file.txt") or die "cannot read file";
while(<F>) {
  if (/total/)  {
      print scalar <F> for (1..$lines);
      last;
  }
}
close(F);

borrowed from awk
Code:
line: while (<>) {
    if (/line 5/){ $c = 5; next line; }
    print $_ if $c-- >0 ;
}

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Reading lines in a file matching a pattern

Hi, I need to redirect the lines in a file to a different file if the character starting from 2 to 6 in the line are numerical . Please let me know if anyone have any script to do this. Thanks, Ranjit (4 Replies)
Discussion started by: torenji
4 Replies

2. Shell Programming and Scripting

counting the lines matching a pattern, in between two pattern, and generate a tab

Hi all, I'm looking for some help. I have a file (very long) that is organized like below: >Cluster 0 0 283nt, >01_FRYJ6ZM12HMXZS... at +/99% 1 279nt, >01_FRYJ6ZM12HN12A... at +/99% 2 281nt, >01_FRYJ6ZM12HM4TS... at +/99% 3 283nt, >01_FRYJ6ZM12HM946... at +/99% 4 279nt,... (4 Replies)
Discussion started by: d.chauliac
4 Replies

3. Shell Programming and Scripting

delete lines in file matching a pattern

I have a text file, a sample of which is as follows: r/- * 0: WINDOWS/Microsoft.NET/Framework/v2.0.50727/ASP.NETWebAdminFiles/Images/headerGRADIENT_Tall.gif r/- * 0: WINDOWS/SoftwareDistribution/Download/cf8ec753e88561d2ddb53e183dc05c3e/backoff.jpg r/- * 0: ... (2 Replies)
Discussion started by: stumpyuk
2 Replies

4. Shell Programming and Scripting

pattern matching lines using the date, and then joining the lines

Hi Guys, Was trying to attempt the below using awk and sed, have no luck so far, so any help would be appreciated. Current Text File: The first line has got an "\n", and the second line has got spaces/tabs then the word and "\n" TIME SERVER/CLIENT TEXT... (6 Replies)
Discussion started by: eo29
6 Replies

5. Shell Programming and Scripting

Finding lines matching the Pattern and their previous lines in a file

Hi, I am trying to locate the occurences of certain pattern like 'Possible network disconnect' in a text file. I can get the actual lines matching the pttern using: grep -w 'Possible network disconnect' file_name. But I am more interested in getting the timing of these events which are... (7 Replies)
Discussion started by: sagarparadkar
7 Replies

6. UNIX for Dummies Questions & Answers

FIND matching pattern of lines in a file

I need to search for two patterns in a file and find number of matching lines. find . -type f | xargs grep "DROP TABLE" | wc -l find . -type f | xargs grep "DROP SYNONYM" | wc -l The above code works. However I am looking at finding a commnd that will simplify as on a singe command... (2 Replies)
Discussion started by: Siva SQL
2 Replies

7. Shell Programming and Scripting

Want to print out lines with a matching pattern from file

Hi all, I want to search for strings in file1 that can be found in file2 and print out the whole line when matching pattern is found. I have used the below command, but this is not working for me, because it is writing out only the matching patterns from file2, not the whole line. fgrep -o... (2 Replies)
Discussion started by: MonikaB
2 Replies

8. Shell Programming and Scripting

Sed: printing lines AFTER pattern matching EXCLUDING the line containing the pattern

'Hi I'm using the following code to extract the lines(and redirect them to a txt file) after the pattern match. But the output is inclusive of the line with pattern match. Which option is to be used to exclude the line containing the pattern? sed -n '/Conn.*User/,$p' > consumers.txt (11 Replies)
Discussion started by: essem
11 Replies

9. UNIX for Dummies Questions & Answers

Grep -v lines starting with pattern 1 and not matching pattern 2

Hi all! Thanks for taking the time to view this! I want to grep out all lines of a file that starts with pattern 1 but also does not match with the second pattern. Example: Drink a soda Eat a banana Eat multiple bananas Drink an apple juice Eat an apple Eat multiple apples I... (8 Replies)
Discussion started by: demmel
8 Replies

10. Shell Programming and Scripting

Display all lines after a matching variable

Hi, I have a file called abc.txt with the following dates 2016-01-27 2016-01-28 2016-01-29 2016-01-30 2016-01-31 2016-02-01 2016-02-02 2016-02-03 I would like to print all lines below if 2016-01-31 is found, excluding that date. I use this command --> sed '1,/2016-01-31/d' abc.txt If... (4 Replies)
Discussion started by: Nagesh_1985
4 Replies

LEARN ABOUT DEBIAN

devel::trace

Trace(3pm)						User Contributed Perl Documentation						Trace(3pm)

NAME

       Devel::Trace - Print out each line before it is executed (like "sh -x")

SYNOPSIS

	 perl -d:Trace program

DESCRIPTION

       If you run your program with "perl -d:Trace program", this module will print a message to standard error just before each line is executed.
       For example, if your program looks like this:

	       #!/usr/bin/perl

	       print "Statement 1 at line 4
";
	       print "Statement 2 at line 5
";
	       print "Call to sub x returns ", &x(), " at line 6.
";

	       exit 0;

	       sub x {
		 print "In sub x at line 12.
";
		 return 13;
	       }

       Then  the "Trace" output will look like this:

	       >> ./test:4: print "Statement 1 at line 4
";
	       >> ./test:5: print "Statement 2 at line 5
";
	       >> ./test:6: print "Call to sub x returns ", &x(), " at line 6.
";
	       >> ./test:12:   print "In sub x at line 12.
";
	       >> ./test:13:   return 13;
	       >> ./test:8: exit 0;

       This is something like the shell's "-x" option.

DETAILS

       Inside your program, you can enable and disable tracing by doing

	   $Devel::Trace::TRACE = 1;   # Enable
	   $Devel::Trace::TRACE = 0;   # Disable

       or

	   Devel::Trace::trace('on');  # Enable
	   Devel::Trace::trace('off'); # Disable

       "Devel::Trace" exports the "trace" function if you ask it to:

	   import Devel::Trace 'trace';

       Then if you want you just say

	   trace 'on';		       # Enable
	   trace 'off'; 	       # Disable

TODO

       o   You should be able to  send the trace output to the filehandle of your choice.

       o   You should be able to specify the format of the output.

       o   You should be able to get the output into a string.

       We'll see.

LICENSE

       Devel::Trace 0.11 and its source code are hereby placed in the public domain.

Author
       Mark-Jason Dominus (C<mjd-perl-trace@plover.com>), Plover Systems co.  See the C<Devel::Trace.pm> Page at
       http://www.plover.com/~mjd/perl/Trace for news and upgrades.

perl v5.14.2							    2012-02-16								Trace(3pm)
All times are GMT -4. The time now is 12:49 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy