note
jwkrahn
<blockquote><i><c>
perl -ne 'print if $. >= 17 && $. <= 30' infile.txt > output.txt
</c></i></blockquote>
<p>
That can be written more simply as:
</p>
<c>
perl -ne 'print if 17 .. 30' infile.txt > output.txt
</c>
<p>
The comparison to <c>$.</c> is done automatically.
</p>
<p>
Your program needs a while loop:
</p>
<c>
open INFILE, '<', $inFile or die "Can't open $inFile : $!";
open OUTFILE, '>', $outFile or die "Can't open $outFile : $!";
while ( <INFILE> ) {
print OUTFILE if 17 .. 30;
}
close INFILE or die "can't close $inFile : $!";
close OUTFILE or die "can't close $outFile : $!";
</c>
980818
980818