perl-文件夹遍历

前几天因为要处理的文件分散在不同文件夹，所以写了一个文件夹遍历子程序，欢迎参考。

博客园不能代码高亮，如果对perl、R、python感兴趣可以去我的主页www.from0701.com。

sub traverse {
my @dir_list; //定义自程序的返回值，即改文件夹中的文件
if(-d $_[0]){ //判断传入参数是否是文件夹
opendir DIR, $_[0];
foreach $dir_child (readdir DIR){ //遍历文件夹
next if $dir_child=~/^\./; //去除.和..
push @dir_list,$dir_child; //将文件加入到数组
}
}else{
push @dir_list,"传入非文件夹参数";
}
return @dir_list;
}
//使用方法
my @list=&traverse("/Users/lmw/Download");
for (@list){
print $_."\n";
}