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";
}
常见问题
相关文章
猜你喜欢
- perl正则典型应用 2015-12-14
- 从mysqldump全备获取指定库的sql 2015-12-14
- 查看网页源代码 2015-12-14
- 生成随机字符串 2015-12-14
- 用于比较两个文件不同的行差集 2015-12-14
- netstat 的连接状态个数统计 2015-12-14
- 对syslog日志进行解析 2015-12-14
- 猜字游戏 2015-12-14
- 使用 Perl 监控网站的性能和 uptime 2015-12-14
- Perl 查找文件 2015-12-14
