Perl获取目录下文件或者包含子目录下文件

my $dir = "D:\\My_Work\\Temp";
my @files = ();

#获取给定目录下文件
@files = get_dir_files($dir);    

#获取给定目录以及子目录下文件
@files = get_dir_files_x($dir);

#获取目录下以及子目录下文件，返回的结果中包含路径
sub get_dir_files_x{
    my ($dir_p) = @_;
    my @files = ();
    my @dirs = ($dir_p);
    die "error $basedir: $!" unless(-d $dir_p);
    while(@dirs){
        $dir = $dirs[0];
        opendir folder, $dir || die "Can not open this directory";
        my @filelist = readdir folder; 
        closedir folder;
        foreach  (@filelist) {
            next if ($_ eq "." or $_ eq "..");
            my $f = path_join($dir,$_);
            push(@dirs,$f) if (-d $f);
            push(@files,$f) if (-f $f);
        }
        shift(@dirs);
    }
    return @files;
}

#获取目录下文件
sub get_dir_files{
    my ($dir) = @_;
    my @files = ();
    opendir DIR,$dir or die "Can not open this dir";
    my @file_list = readdir DIR;
    closedir DIR;
    foreach(@file_list) {
        push(@files,$_) if(-f path_join($dir,$_));
    }
    return @files;
}

#获取路径合并操作，自动加上斜杠，有斜杠与没斜杠都可以合并
sub path_join{
    my ($path1,$path2) = @_;
    my $path = $path1."\\".$path2;
    $path=~s/[\\|\/]+/\\/g;
    return $path;
}