Using the seek function to go to a certian byte range

So I'm trying to use the seek function to seek a couple of lines of the file without going to the end of the file. Just trying to stay within a certain byte range. Here is my code.

#!/usr/local/bin/perl
print "content-type: text/html

";
open (FILE, "< file.txt") or die("File not found");
seek FILE, 21,0;
while()
{
print;
}
close(FILE);
exit;

What would I need to do to only stay within a certain byte range and display the text only in that byte range without going to the end of the file. I have looked all over but can't seem to figure out how to do this without going to the end of the file.
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories