On Jun 20, 1:30 pm, [EMAIL PROTECTED] (John W. Krahn) wrote:
> Here is another way to do it:
>
> my $jump;
> while ( <FILE> ) {
> $jump = $. + 10 if /regex/;
> print "the output" if $jump == $.;
> }
>Two observations: 1. this will warn while $jump is undef 2. if regex is matched by one of the ten 'skip' lines, it will skip some more -- Brad -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
