C:\test>type junk86.pl #! perl -sw use strict; my $last; while( <> ) { if( /processed/ ){ if( $last ) { print( $last ); undef( $last ) } print; } else{ $last = $_; } } C:\test>type junk.dat **start abc **start adl **start xyz File1 processed File2 processed **start zxcv **start wert File3 processed File4 processed C:\test>junk86 junk.dat >junk.new C:\test>type junk.new **start xyz File1 processed File2 processed **start wert File3 processed File4 processed
In reply to Re^3: How to print a matching line and one line above it?
by BrowserUk
in thread How to print a matching line and one line above it?
by vbynagari
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |