Perl telldir Function

Advertisements


Description

This function returns the current position of read pointer within the directory listing referred to by DIRHANDLE. This returned value can be used by seekdir() function.

Syntax

Following is the simple syntax for this function:

telldir DIRHANDLE

Return Value

This function returns the current position within the directory.

Example

Following is the example code showing its basic usage, we have only two files in /tmp directory.:

#!/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);

When above code is executed, it produced following result

Position without read : 0
Position after one read : 1220443271
test.txt
test.txt
Position after second read : 1220443271


Advertisements
Advertisements