[CentOS] grep

[Warren Young]

Scott McClanahan wrote:
>
> I'd like to skip those lines.  I'd like to skip the line with "bar" and
> the following five lines.

In that case, the perl code would be:

#!/usr/bin/perl
$eat = 0;
while (<>) {
     if (m/bar/) {
	$eat = 6;
     }

     if ($eat) {
         --$eat;
     }
     else {
         print;
     }
}


Again, not tested.  Use at your own risk.