line version of seek

[liv4jc]

Is there a version of seek that counts by line instead of by character? For example, I want to be able to type:

seek(FILE, 3, 0);

and be at the 3rd line of the file. Is that possible?

Thanks.

 

[NEVERSLEEP]

$count = 0;
...
while (<FILE>)
 &action if ($count == 2)
 $count++
}

# or u can still use a @array to file $thirdline = $array[2]

---------------------------------------

someone knowledge ends where
someone else knowledge starts