Función Perl telldir

Descripción

Esta función devuelve la posición actual del puntero de lectura dentro del listado de directorios al que hace referencia DIRHANDLE. Este valor devuelto puede ser utilizado por la función seekdir ().

Sintaxis

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

telldir DIRHANDLE

Valor devuelto

Esta función devuelve la posición actual dentro del directorio.

Ejemplo

A continuación se muestra el código de ejemplo que muestra su uso básico, solo tenemos dos archivos en el directorio / tmp:

#!/usr/bin/perl -w
opendir(DIR, "/tmp");

print("Position without read : ", telldir(DIR), "\n");

$dir = readdir(DIR);
print("Position after one read : ", telldir(DIR), "\n");
print "$dir\n";
seekdir(DIR,0);

$dir = readdir(DIR);
print "$dir\n";
print("Position after second read : " , telldir(DIR), "\n");

closedir(DIR);

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

Position without read : 0
Position after one read : 1
.ICE-unix
.ICE-unix
Position after second read : 1