Mega Code Archive

 

Categories / Perl / File

 

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: $!";