新手请教perl中如何遍历目录树

wjlabcwjl

如题，就是给定一个目录，列出这个目录及其所有子目录中的文件。
谢谢先~

iamlimeng

用递归，几行代码足够

zhlong8

perl -MFile::Find -E "find sub {say $File::Find::dir , '/', $_ }, some_dir"

tima123

一段WEB应用共你参考,列出所在脚本当前目录及子目录所有files

$SET{my_path} = ($0 =~ /^(.+)[\/\\]/)[0] || '.';
$SET{my_path} =~ s/\\/\//g;


Dir_tree($SET{my_path});

sub Dir_tree {

        my @files =Readdir_to_array("$_[0]");

        foreach (@files) {
                next if ($_ eq".")||($_ eq"..");

                unless(-d"$_[0]/$_"){
                        print "$_[0]/$_\n";
                }
                else {
                        &Dir_tree("$_[0]/$_");
                }
        }
        return;
}

sub Readdir_to_array {
        opendir( FILESS, "$_[0]" );
        my @lines = readdir(FILESS);
        closedir(FILESS);
        return (@lines);
}

wjlabcwjl

1. sub listfile{
   
2.         my $dir = shift @_;
   
3.         opendir DH, $dir;
   
4.         foreach my $file (readdir DH){
   
5.                 next if $file eq "." or $file eq "..";
   
6.                 $file = "$dir/$file";
   
7.                 if(-d $file){
   
8.                         &listfile($file);
   
9.                 }
   
10.                 else{
    
11.                         print $file;
    
12.                 }
    
13.         }
    
14.         return 1;
    
15. }
    
16. 
    
17. &listfile("目录");

复制代码

用递归函数大概就是这样了吧