28 Aug
2007
28 Aug
'07
4:29 p.m.
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.