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

 
 
 

  
  
  
opendirSOMEDIR,$dirnameordie“Cannotopen$dirname:$!”;  
  
  
  
while(my$name=readdirSOMEDIR){  
  
  
  
nextif$name=~/^\./;#跳过点文件  
  
  
  
$name=“$dirname/$name”;#加上目录名  
  
  
  
nextunless–f$nameand–rname;#除非是可读文件如果没有加上目录名，则测试部分将只检测当前目录下的文件，而不是$dirname下的文件。 
 
 
 

这是使用Perl目录句柄最常犯的一个错误

网站题目：Perl目录句柄基本操作解析
链接分享：http://www.shufengxianlan.com/qtweb/news9/220009.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联