Perl 遍历文件夹

    sub lsr_s($) {
        my $cwd = shift;
        my @dirs = ($cwd.'/');
        my @DirFile;
        my ($dir, $file);
        while ($dir = pop(@dirs)) {
            local *DH;
            if (!opendir(DH, $dir)) {
                warn "Cannot opendir $dir: $! $^E";
                next;
            }
            foreach (readdir(DH)) {
                if ($_ eq '.' || $_ eq '..') {
                    next;
                }
                $file = $dir.$_;
                if (!-l $file && -d _) {
                    $file .= '/';
                    push(@dirs, $file);
                }
                push @DirFile,$file;
            }
            closedir(DH);
        }
        return @DirFile;
    }