一段Perl代码获取指定目录下的文件

sub?FindFileInDir
{
?my?$dir?=?$_[0];
?#print?"$dirn";
?opendir(DIR,?$dir||?die?"can't?open?this?$dir");
?my?@files?=?readdir(DIR);
?closedir(DIR);
?for?my?$file?(@files){
?next?if($file?=~?m/.$/?||?$file?=~?m/..$/);
??if?($file?=~?/.(c|h|cpp)$/i)
??{
???print?"$dir/$file?n";
???#push(@FileFolder,?"$dir/$file");
??}
??elsif(-d?"$dir/$file")
??{
???&FindFileInDir("$dir/$file"?);
??}
?}
}

如果你不喜欢递归，我们可以试试迭代的方式。

sub?FindFileInDirWithStack
{
?my?$dir?=?$_[0];
?my?@FolderStack?=?();
?
?push(@FolderStack,?$dir);
?while(1)
?{
??my?$currentSearchFolder?=?pop(@FolderStack);
??if(defined($currentSearchFolder)?==?0)
??{
???last;
??}
??opendir(DIR,?$currentSearchFolder||?die?"can't?open?this?$currentSearchFolder");
??my?@files?=?readdir(DIR);
??closedir(DIR);
??for?my?$file?(@files){
???next?if($file?=~?m/.$/?||?$file?=~?m/..$/);
???if?($file?=~?/.(c|h|cpp)$/i)
???{
????print?"$currentSearchFolder/$file?n";
???}
???elsif(-d?"$currentSearchFolder/$file")
???{
????push(@FolderStack,?"$currentSearchFolder/$file");
???}
??}??
?}
}