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 );???? # 數(shù)組轉(zhuǎn)化為標(biāo)量?

???? $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 );???? # 沒有文件夾寫入最終的隊(duì)列；

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;
????}
????
}