Perl-使用深度遍历查找制定文件目录文件

点击(此处)折叠或打开

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. use Data::Dumper;
   
7. use File::Basename;
   
8. use File::Spec::Functions;
   
9. 
   
10. 
    
11. my $data = data_for_path_deep('/home/MyProject/PerlProject');
    
12. 
    
13. 
    
14. sub data_for_path_deep{    
    
15.     my ($path) = @_;
    
16.     print "-------------------------",$path,"";
    
17.     my $data = {};
    
18.     my @queue = ([$path, $data]);
    
19.     
    
20.     while(my $next = shift @queue){
    
21.         my ($path, $ref) = @$next;
    
22.         
    
23.         my $basename = basename($path);
    
24.         $ref->{$basename} = do{
    
25.             if(-f $path or -l $path){undef}
    
26.             else{
    
27.                 my $hash = {};
    
28.                 opendir my $dir_fh, $path
    
29.                     or die "can not open dir: $!";
    
30.                 my @new_paths = map{
    
31.                     catfile($path, $_)
    
32.                 }grep{! /^\.\.?\z/}readdir $dir_fh;
    
33. 
    
34. 
    
35.                 unshift @queue, map{[$_, $hash]} @new_paths;
    
36.                 $hash;
    
37.             }
    
38.         }
    
39.     }
    
40.         
    
41.     $data;
    
42. }
    
43. 
    
44. print Dumper $data;