The seek Function randomly accesses a file. : file seek « File « Perl






The seek Function randomly accesses a file.

    

#Format: seek(FILEHANDLE, OFFSET, POSITION);

#POSITION
#0   =   Beginning of file
#1   =   Current position in file
#2   =   End of file

open(PASSWD, "/etc/passwd") || die "Can't open: $!\n";
while ( chomp($line = <PASSWD>) ){
   print "---$line---\n" if $line =~ /root/;
}
seek(PASSWD, 0, 0) || die "$!\n"; 
while(<PASSWD>){print if /ellie/;}
close(PASSWD);

   
    
    
    
  








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: seek(FILEHANDLE, BYTEOFFSET, FILEPOSITION);
8.File seek operations
9.Move file pointer by using the seek function