Función Perl tell

Descripción

Esta función devuelve la posición actual del puntero de lectura (en bytes) dentro del FILEHANDLE especificado. Si se omite FILEHANDLE, devuelve la posición dentro del último archivo al que se accedió.

Sintaxis

A continuación se muestra la sintaxis simple para esta función:

tell FILEHANDLE

tell

Valor devuelto

Esta función devuelve la posición actual del archivo en bytes.

Ejemplo

A continuación se muestra el código de ejemplo que muestra su uso básico, para verificar esta función, haga lo siguiente:

Cree un archivo de texto con "esto es prueba" como contenido y guárdelo en el directorio / tmp.
Lea 2 caracteres de este archivo.
Ahora verifique la posición del puntero de lectura en el archivo.

#!/usr/bin/perl -w

open( FILE, "</tmp/test.txt" ) || die "Enable to open test file";
$char = getc( FILE );
print "First Character is $char\n";
$char = getc( FILE );
print "Second Character is $char\n";
# Now check the position of read pointer.
$position = tell( FILE );
print "Position with in file $position\n";
close(FILE);

Cuando se ejecuta el código anterior, produce el siguiente resultado:

First Character is E
Second Character is O
Position with in file 2

↰ Previous page