Perl目录句柄基本操作解析

本文和大家重点讨论一下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的地方，人们也经常在这里出现混淆。
你需要将路径名加上，以得到文件的全名（路径名+文件名）：