You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
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";
|
|
}
|