- 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.codesnippet.cn/detail/23112012609.html
来源: http://www.codesnippet.cn/detail/23112012609.html