Perl closedir函数

学习Perl语言编程中……

介绍:

Perl closedir函数关闭opendir打开的一个目录，如果关闭成功则返回真，否则返回假。参阅readdir里的例子。FILEHANDLE可以是一个表达式，它的值可以用做一个间接目录句柄，通常是真实目录句柄的名字。

用法:

closedir FILEHANDLE

例子：

#!/usr/bin/perl -w

$dirname = "/tmp";

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

返回结果如下：

返回tmp目录下的所有文件名

.
..
testdir

Perl closedir函数 完~