Perl telldir 函数

描述

此函数返回 DIRHANDLE 所引用的目录列表中读取指针的当前位置。这个返回值可供 seekdir() 函数使用。

语法

以下是此函数的简单语法：-

telldir DIRHANDLE

返回值

此函数返回目录中的当前位置。

示例

以下示例代码显示了其基本用法，我们仅在 /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);

当执行以上代码时，会生成以下结果：-

Position without read : 0
Position after one read : 1
.ICE-unix
.ICE-unix
Position after second read : 1