File Perl

  1. Home
  2. Perl
  3. File
  4. The tell Function returns the current byte position in the file
#Format:
#tell(FILEHANDLE);
#tell;
#!/usr/bin/perl
open(FH,"db") || die "Can't open: $!\n";
while ($line=) {      
   chomp($line);
   if ($line =~ /^Tom/) {
       $currentpos=tell;
       print "position: $currentpos.\n";
       print "$line\n\n";
   }
}
seek(FH,$currentpos,0);   
@lines=();
print @lines;