hi i write this code in perl
i dont know why that not work...
sub Again
{
$dirtoget= $_[0];
if(opendir(DH, $dirtoget))
{
@thefiles = readdir(DH);
closedir(DH);
if(@thefiles)
{
foreach $f (@thefiles)
{
next if ($f eq "." or $f eq "..");
print "$f\n";
if(-d "$dirtoget/$f")
{
Again("$_[0]/$f");
}
}
}
}
else
{
return;
}
}
$dirtoget = "c:/Exam";
Again($dirtoget);
thankss...