Perl opendir()函數

perl opendir()函數例子，opendir()函數實例代碼。打開目錄EXPR，並將它與DIRHANDLE關聯進行處理，使用readdir函數。

語法

opendir DIRHANDLE, EXPR

定義和用法

打開目錄EXPR，並將它與DIRHANDLE關聯進行處理，使用readdir函數。

返回值

• 0 - 失敗

• 1 - 成功

實例

試試下麵的例子：

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

$dirname = "/tmp";

opendir ( DIR, $dirname ) || die "Error in opening dir $dirname\n";
while( ($filename = readdir(DIR))){
     print("$filename\n");
}
closedir(DIR);

這將產生以下結果：

.
..
testdir