in reply to
How to Print Every Other Line
The
$.
variable holds the current line number. So
while (<ONEFILE>) { print ANOTHER if $. % 2; }
[download]
Should do the trick.
Comment on
Re: How to Print Every Other Line
Select
or
Download
Code
In Section
Seekers of Perl Wisdom