Função Perl tell

Descrição

Esta função retorna a posição atual do ponteiro de leitura (em bytes) dentro do FILEHANDLE especificado. Se FILEHANDLE for omitido, ele retornará a posição dentro do último arquivo acessado.

Sintaxe

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

tell FILEHANDLE

tell

Valor de retorno

Esta função retorna a posição atual do arquivo em bytes.

Exemplo

A seguir está o código de exemplo mostrando seu uso básico, para verificar esta função, faça o seguinte -

Crie um arquivo de texto com "this is test" como conteúdo e armazene-o no diretório / tmp.
Leia 2 caracteres deste arquivo.
Agora verifique a posição do ponteiro de leitura no arquivo.

#!/usr/bin/perl -w

open( FILE, "</tmp/test.txt" ) || die "Enable to open test file";
$char = getc( FILE );
print "First Character is $char\n";
$char = getc( FILE );
print "Second Character is $char\n";
# Now check the position of read pointer.
$position = tell( FILE );
print "Position with in file $position\n";
close(FILE);

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

First Character is E
Second Character is O
Position with in file 2

↰ Previous page