pjqblues

# !c:/perl/bin/perl.exe -w

our   @build_dirs ;
our   @temp1_dirs ;
our   @temp2_dirs ;

$dir   =   " downloads " ;
push ( @temp1_dirs ,   $dir );
# +++++++++++++++++++++++++++++++#
sub  EnumDirs{
     @dir_f   =   @_ ;
     my   @temp_dirs ;
     my   $path   =   join ( //,   @dir_f );     # 数组转化为标量?

     $ret_b   =   opendir (HFILE ,   $path );
     die   " open dir error $! "   if ( ! $ret_b );
     @file_s   =   readdir (HFILE);

     for ( $count   =   0 ;  $count < @file_s ;  $count ++ )
    {
        
         if ( ! $file_s [ $count ]  =~  m /\./  )               # 打印文件；
        {
             unshift ( @temp2_dirs ,   $file_s [ $count ]);        # if has dirs shift the path into @temp2_dirs
             return   0 ;                                                 # return 0;
        }
         return   1 ;                                                        # if none dirs return 1;
    }
    
}
# ++++++++++++++++++++++++++++++#
sub  CreateTree{
     my   @dir_fs   =   @_ ;

     $path   =   shift ( @temp1_dirs );
     die   " none elems! "   if ( $path   ==  NULL);
     push ( @build_dirs   , $path );     # 没有文件夹写入最终的队列；

LOOP : {
         $i   =   & EnumDirs( $path );
}

     if ( 1   ==   $i )
    {
         if ( @temp2_dirs   ==  NULL)
        {
             Print ();
        }
        
    }
     if ( 0   ==   $i )
    {
         $path   =   shift ( @temp2_dirs );
          unshift ( @temp1_dirs ,   $path );
          next  LOOP;
    }
    
}