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