Função Perl telldir

Descrição

Esta função retorna a posição atual do ponteiro de leitura dentro da lista de diretórios referida por DIRHANDLE. Este valor retornado pode ser usado pela função seekdir ().

Sintaxe

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

telldir DIRHANDLE

Valor de retorno

Esta função retorna a posição atual dentro do diretório.

Exemplo

A seguir está o código de exemplo mostrando seu uso básico, temos apenas dois arquivos no diretório / 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 : 1
.ICE-unix
.ICE-unix
Position after second read : 1