[EMAIL PROTECTED] wrote:
> I'm sorry, the previous subject should have been changed. My
> apologies.
>
>
> while (<FILE>) {
> $counter++;
> }
>
> I know this is probably simple, but how would I increment by 20? In
> other words, $counter would increment 1 time for every twenty lines
> of the file? Any help would be appreciated.
Here's one possible way:
$counter++ unless $. % 20;
$. is last line number read (starting at 1; see perldoc perlvar)
So $. % 20 will be 0 (false) for line 20, 40, 60, etc. Just increment your
counter then.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
