$num = 0;
$name = "tofind";
iter_dir(".", $name);
sub iter_dir
{
my $path = shift;
my $name = shift;
my $dh;
opendir($dh, $path);
my @d = readdir($dh);
for my $d(@d)
{
my $np = $path . '/' . $d;
if ($d ne '.' && $d ne '..' &&
-d $np)
{
$num++ if ($d eq $name);
print "$d $num\n";
iter_dir($np, $name);
}
}
}
内容全部来源于网络收集，如有侵权，请联系网站删除!