Perl opendir()函数
语法opendir DIRHANDLE, EXPR
定义和用法
打开目录EXPR，并将它与DIRHANDLE关联进行处理，使用readdir函数。
返回值
[*] 0 - 失败
[*] 1 - 成功
实例
试试下面的例子：
#!/usr/bin/perl -w
#by www.yiibai.com
$dirname = "/tmp";
opendir ( DIR, $dirname ) || die "Error in opening dir $dirname\n";
while( ($filename = readdir(DIR))){
print("$filename\n");
}
closedir(DIR);
这将产生以下结果：
.
..
testdir
转自：本站文章除注明转载外，均为本站原创或编译
欢迎任何形式的转载，但请务必注明出处，尊重他人劳动成果。
转载请注明：文章转载自：易百在线编程教程网
本文地址：http://www.yiibai.com/perl/perl_opendir.html
页:
[1]