perl telldir()函数

perl telldir()函数例子，telldir()函数实例代码 - 返回读出指针的当前位置的的目录列表称为DIRHANDLE。

语法

telldir DIRHANDLE

定义和用法

返回读出指针的当前位置的的目录列表称为DIRHANDLE。这个返回值可以使用seekdir()函数。

返回值

• 在目录中的当前位置。

例子

在这个例子中，我们只有两个文件在/tmp目录。

#!/usr/bin/perl -w
#by www.gitbook.net

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);

这将产生以下结果：

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