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