This works very well, thank all of you for your help.
Where can I place a print statement that seperates the output results for each match?
#!/Perl/bin/perl -w open(INFILE, "< file.log") or die "Cant open file : $!"; open(OUT, "> results.txt") or die "Cant open new file : $!"; use strict; my $pattern = "Error while detecting new item"; my @history = ("\n") x 3; while (<INFILE>) { print OUT @history if /$pattern/; push @history, $_; shift @history; } print $.; close INFILE; close OUT; exit;
Example:
results.txt matched line 1 matched line 2 matched line 3 results of first match matched line 1 matched line 2 matched line 3 results of second match and so on...
Thank you again so much, Neurotoxx
In reply to Re^3: How can I print three lines before pattern match?
by neurotoxx
in thread How can I print three lines before pattern match?
by neurotoxx
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |