【求教】如何用perl获得某个目录下全部子目录列表？

bigfatsea

例如结构
myfolder
    folder1
    folder2
    folder3
    folder4
        subfolder1
        subfolder2
        subfolder3
    folder5


获得列表如下：
.../myfolder
.../myfolder/folder1
.../myfolder/folder2
.../myfolder/folder3
.../myfolder/folder4
.../myfolder/folder4/subfolder1
.../myfolder/folder4/subfolder2
.../myfolder/folder4/subfolder3
.../myfolder/folder5



小弟并没偷懒，只是不过我对perl不熟，现在正在研究如何写出一个递归结构（我觉得用递归会比较方便）。至于如何获得特定路径下的所有子目录，并把某个路径传到sub里面，小弟手头的资料不全，暂时没有找到，请大侠多多指点。

谢谢。。。

bigfatsea

#!/usr/bin/perl
$path = "C:\\";
opendir FH,$path or die;
@list = readdir FH;
foreach $m (sort @list) {
        if (-d $m) {
                print $m,"\t\t<dir>;\n";
        }
        elsif (-f $m){
                print $m,"\t\t<file>;\n";
        }
        else{
                print $m,"\n";
        }
}


^_^。。。。找到一个。。。。自行研究一下先。。。。大家先别理我（>_<）

flw

perldoc File::Find