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