File Perl

  1. Home
  2. Perl
  3. File
  4. The tell function returns the current byte position of a filehandle
#Format
#tell (FILEHANDLE);
#tell FILEHANDLE;
#tell;
open(PASSWD, "/etc/passwd") || die "Can't open: $!\n";
while ( chomp($line = ) ){
    if ( $line =~ /sync/){
       $current = tell;
       print "---$line---\n";
    }
}
printf "The position returned by tell is %d.\n", $current;
seek(PASSWD, $current, 0);
while(){
    print;
}