Função Perl seekdir

Descrição

Esta função define a posição atual em DIRHANDLE para POS. O valor de POS deve ser um valor previamente retornado por telldir.

A função seekdir () é semelhante à chamada de sistema Unix seekdir ().

Sintaxe

A seguir está a sintaxe simples para esta função -

seekdir DIRHANDLE, POS

Valor de retorno

Esta função retorna 0 em caso de falha e 1 em caso de sucesso.

Exemplo

A seguir está o código de exemplo mostrando seu uso básico, crie um diretório 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);

Quando o código acima é executado, ele produz o seguinte resultado -

Position without read : 0
Position after one read : 4
.
.
Position after second read : 4