你的分享就是我们的动力 ---﹥

Perl 查找文件

时间:2013-05-30 00:05来源:www.chengxuyuans.com 点击:

代码简介

暂无

Perl代码片段

use File::Find;
use Win32::File;

&File::Find::find(\&wanted,"C:\\httpd", "C:\\testing");
sub wanted{
      (Win32::File::GetAttributes($_,$attr)) &&
      ($attr & DIRECTORY) &&
      print "$File::Find::name\n";
}

转载注明地址:http://www.chengxuyuans.com/Perl/63095.html