本文和大家重点讨论一下Perl目录句柄操作，从给定目录得到其文件名列表的方法还可以使用Perl目录句柄（directoryhandle），Perl目录句柄外形及其行为都很像文件句柄。这里和大家简单分享一下。
Perl目录句柄操作（opendir,readdir,closedir）
从给定目录得到其文件名列表的方法还可以使用Perl目录句柄（directoryhandle）。Perl目录句柄外形及其行为都很像文件句柄。打开（使用opendir而非open），从中读入（使用readdir而非readline），关闭（使用closedir而非close）。不是读入文件的内容，而是将一个目录中的文件名（以及一些其它东西）读入，如下例：
- my$dir_to_process="/etc";
- opendirDH,$dir_to_processordie“Cannotopen$dir_to_process:$!”;
- foreach$file(readdirDH){
- print“onefilein$dir_to_processis$file\n”;
- }
- closedirDH;
同文件句柄一样，Perl目录句柄会在程序结束时自动关闭；或者当Perl目录句柄被重新打开而指向另一个目录时，也会自动关闭。
在Perl以前的版本中，globbing它会调用别的进程；Perl目录句柄不会，因此它更有效率，能更有效的利用系统资源。但是，这是一种底层（lower-level）的操作，意指我们需要自己处理更多的事情。
- while($name=readdirDIR){
- nextunless$name=~/\.pm$/;
- …moreprocessing…
- }
上述的语法是正则表达式而非glob。如果想要所有的非点（non-dot）文件(不是由点开头的文件)，可以使用：
- nextif$name=~/^\./;
如果想要除了通常的点（当前目录）以及点点（父目录）之外的所有文件，我们可以明确地使用下面的语句：
- nextif$nameeq“.”or$nameeq“..”;
现在我们讨论最容易混淆的部分，请打起精神来。readdir操作返回的文件名没有路径名部分，而只是文件名。因此，我们的得到的不是/etc/passwd而是passwd。由于这又是一个不同于globbing的地方，人们也经常在这里出现混淆。
你需要将路径名加上，以得到文件的全名（路径名+文件名）：
- opendirSOMEDIR,$dirnameordie“Cannotopen$dirname:$!”;
- while(my$name=readdirSOMEDIR){
- nextif$name=~/^\./;#跳过点文件
- $name=“$dirname/$name”;#加上目录名
- nextunless–f$nameand–rname;#除非是可读文件如果没有加上目录名，则测试部分将只检测当前目录下的文件，而不是$dirname下的文件。
这是使用Perl目录句柄最常犯的一个错误
【编辑推荐】
