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.
_______________________________________________
CentOS mailing list
CentOS@xxxxxxxxxx
http://lists.centos.org/mailman/listinfo/centos
