Move file pointer by using the seek function : file seek « File « Perl






  1. Perl
  2. File
  3. file seek

Move file pointer by using the seek function

    


#!/usr/bin/perl

use strict;
use warnings;

print "Creating a file with the numbers 0-9.\n";
open FILE, "+>file.txt" or die "Unable to open file: $!\n";
print FILE "0\n1\n2\n3\n4\n5\n6\n7\n8\n9\n";
close FILE or die "Unable to open file: $!\n";

print "Printing the third item:\n";
seek( FILE, 4, 0 );
my $in = <FILE>;
print "$in";
print "Printing the rest of the file:\n";
print while ( <FILE> );

close FILE or die "Unable to close file: $!";








Related examples in the same category

1.Seek a file
2.Seek a minus value
3.Seek and tell.
4.Seek current position
5.Seek log file
6.Using seek function from IO:File
7.The seek Function randomly accesses a file.
8.The seek Function randomly accesses a file: seek(FILEHANDLE, BYTEOFFSET, FILEPOSITION);
9.File seek operations