Go4Expert - View Single Post - Using the seek function to seek a byte range

pradeep

Code: Perl

#!/usr/local/bin/perl
print "content-type: text/html\n\n";
open (FILE, "< file.txt") or die("File not found");
seek FILE, 0,21;
while(<FILE>)
{
   print;
}
close(FILE);
exit;

http://perldoc.perl.org/functions/seek.html

pradeep Team Leader
8Jan2009,16:00
	Code: Perl #!/usr/local/bin/perl print "content-type: text/html\n\n"; open (FILE, "< file.txt") or die("File not found"); seek FILE, 0,21; while(<FILE>) { print; } close(FILE); exit; http://perldoc.perl.org/functions/seek.html