Perl readdir()函数

perl readdir()函数例子，readdir()函数实例代码 - 在标量上下文中，返回的下一个目录条目的目录关联的DIRHANDLE。

语法

readdir DIRHANDLE

定义和用法

在标量上下文中，返回的下一个目录条目的目录关联的DIRHANDLE。在列表上下文中，返回剩余的所有DIRHANDLE目录中的条目。

返回值

• 返回值：在标量上下文的目录连接到DIRHANDLE的下一个文件的名称。

• 返回值在数组上下文：列表中包含的所有连接到DIRHANDLE目录文件。

例子

试试下面的例子：

#!/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