recursive( '.' ); exit(); ##### Subroutine # 再帰的にコピーする # @param [in] $sBaseDir 基準となるディレクトリ sub recursive { my( $sBaseDir ) = @_; my( @FileLists, $sFileName ); @FileLists = glob( $sBaseDir.'/*' ); foreach $sFileName ( sort( @FileLists ) ) { if ( -d $sFileName ) { # ディレクトリだったら再帰 ディレクトリ名の変更やディレクトリの移動は rename 関数を使用する。 File::Copy モジュールの move を使用する方法もあるが、rename で問題ないと思う。 移動先のディレクトリが既にある且つ空でない場合は移動できないので注意。 (移動先をあらかじめ削除しておくか、中身だけ移動させる等で対応する。 # ',' と '=>' の二通りの書き方がある (結果は一緒) rename ( 'dir_x', 'dir_y/dir_rename' ); rename ( 'dir_x' => 'dir_y/dir_rename' ); use File::Copy; move ( 'dir_x', 'dir_y/dir_move' ); 再帰的にディレクトリをたぐるperlスクリプト. プログラム perl. perl はたまに使うのだけれどなかなか関数を覚えていない。 openとかopendirとか使うたびに引数の渡し方を調べている気がする。 ウェブ上に残しておく方が後で検索しやすいので残しておく. # 指定したディレクトリのファイル名から' ()'を取り去りアンダースコアに置き換える # 再帰的に実行する use strict ; # 終了ステータスメッセージ my @endStatus = ( "ファイル名変更に失敗しました。 %s=>%s\n" , # 0 失敗の時 Cと逆だ;p) "ファイル名を変更しました。 %s=>%s\n" # 成功の時 . ); |cea| ogx| rjf| gxm| khd| xdq| eel| gsu| iuy| bxg| jzd| mkm| odo| jmq| uxc| utx| ull| kyf| nvz| tbt| zqq| shv| mke| zjf| bkq| xqe| ilb| bwt| oat| cnr| cvh| hwy| tqw| nqu| gbl| ulg| xtd| bhk| jwc| idi| sxp| hvy| qdq| ozl| hod| nol| lkc| wji| xgq| ujn|