Función seekdir de Perl

Descripción

Esta función establece la posición actual dentro de DIRHANDLE en POS. El valor de POS debe ser un valor devuelto previamente por telldir.

La función seekdir () es similar a la llamada al sistema seekdir () de Unix.

Sintaxis

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

seekdir DIRHANDLE, POS

Valor devuelto

Esta función devuelve 0 en caso de error y 1 en caso de éxito.

Ejemplo

A continuación se muestra el código de ejemplo que muestra su uso básico, cree un directorio testdir dentro de / 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 : 4
.
.
Position after second read : 4