Perl中取得指定目录下的所有文件

Perl中取得指定目录下的所有文件

有两种方法如果递归的找子目录可以用下面的files函数，只是找当前文件夹下面的glob就可以实现了：

my @files;
files('.', \@files);
print "$#files @files\n";
my @local;
@local = glob("./*");
print "$#local @local\n";
 
 
sub files {
    my $path = shift;
    my $arr  = shift;
    opendir(my $H, $path) || return;
    my @f = readdir($H);
    close($H);
    for my $f(@f) {
        my $p = "$path/$f";
        next if ($f =~/^[.]+$/);
        if (-f $p) {
            push @$arr, $f;
        }
        else {
            files($p, $arr);
        }
    }
}