note
simonflk
<i>GhodMode said:</i>
<blockquote>
<code>
my @array = <FILE>;
close FILE;
# Print line 10
print $array[10];
</code>
</blockquote>
<p>Not quite. That prints line 11. I would do something like this:</p>
<code>
my $findline = 10;
while (<FILE>) {
next unless $. == $findline;
# .. do something
last; #don't read any more
}
</code>
<p>For the original question "<i>do something</i>" would probably be a seek backwards to the desired char, or perhaps more sensibly, stop the line before and seek forwards.</p>
<p>for more info on $. and friends, see perldoc [perlvar]</p>
<!--sig-->
<p>-- simonflk</p>
<!--/sig-->
9374
9374