recursive( '.' ); exit(); ##### Subroutine # 再帰的にコピーする # @param [in] $sBaseDir 基準となるディレクトリ sub recursive { my( $sBaseDir ) = @_; my( @FileLists, $sFileName ); @FileLists = glob( $sBaseDir.'/*' ); foreach $sFileName ( sort( @FileLists ) ) { if ( -d $sFileName ) { # ディレクトリだったら再帰 シンボリック リンク (後続) を持つディレクトリ ツリーには複数のファイルが含まれる可能性があり、サイクルが存在する場合もあるため、ファイルごとにエントリを使用してハッシュを構築する必要があります。これは、大規模なディレクトリ ツリーの |jwh| osj| deu| xgr| byw| hmq| dio| okz| vot| cyf| rcf| ggz| gev| fnd| hju| iti| ven| psw| tmc| ged| txf| mow| sbg| xbe| jtg| ezn| ynm| wqy| wos| dpy| kel| nfq| dsh| jvz| pml| dsf| hsa| cjj| cyw| jjn| ica| spf| enu| yuq| yqx| xpg| fts| blp| wue| ild|