La función tell() en Perl se usa para obtener la posición del puntero de lectura en un archivo con el uso de su FileHandle. Si no se pasa FileHandle, devuelve la posición dentro del archivo al que se accedió más recientemente.
Sintaxis: tell(FileHandle)
Parámetro:
FileHandle: Filehandle del archivo al que se va a acceder.Devuelve: la posición actual del puntero de lectura
Ejemplo 1:
#!/usr/bin/perl
# Opening a File in Read-only mode
open(fh, "<", "Hello.txt");
$position = tell(fh);
print("Position of read pointer before reading: $position");
# Reading first 10 characters from the file
for($i = 0; $i < 10; $i++)
{
$ch = getc(fh);
}
$position = tell(fh);
# Current position of the read pointer
print("\nCurrent Position: $position");
# Closing the File
close(fh);
Producción:
Ejemplo 2:
#!/usr/bin/perl
# Opening a File in Read-only mode
open(fh, "<", "Hello.txt");
$position = tell(fh);
print("Position of read pointer before reading: $position\n");
# Printing First 10 Characters
print("First ten characters are: ");
# Reading and printing first
# 10 characters from the file
for($i = 0; $i < 10; $i++)
{
$ch = getc(fh);
print" $ch";
}
$position = tell(fh);
# Current position of the read pointer
print("\nCurrent Position: $position");
# Closing the File
close(fh);
Producción: