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