closedir DIRHANDLE |
關閉目錄句柄DIRHANDLE。
失敗返回 0
成功返回 1
#!/usr/bin/perl -w $dirname = "/tmp"; #by www.gitbook.net opendir ( DIR, $dirname ) || die "Error in opening dir $dirname\n"; while( ($filename = readdir(DIR))){ print("$filename\n"); } closedir(DIR);
這將產生以下結果:
. .. testdir