查找文件代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】查找文件

作者:dezai / 发布于2014/9/12/ 475


	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";
	}

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

　　

试试其它关键字

　查找文件　

同语言下

可能有用的

dezai贡献的其它代码(1065)