« Perl で3桁の数字を000から100まで生成 | メイン | 『Java並行処理プログラミング』無料プレゼント »
2006年11月21日
[Perl]CVSからチェックアウトした際に作られるCVSディレクトリを削除する
なぜか野良になったローカルのCVSディレクトリたちは不要なので一斉削除したい。
Perlメモ/File::Findモジュール - Walrus, Digit.の「カレントディレクトリ以下から、"CVS"ディレクトリを削除(File::Pathモジュールを併用)。」より
perl -MFile::Find -MFile::Path -e "find(sub {rmtree($_, 1, 1) if (-d $_ and $_ eq 'CVS');}, '.');"
投稿者 NI-Lab. Twitter: @nilab : 2006年11月21日 20:35
« Perl で3桁の数字を000から100まで生成 | メイン | 『Java並行処理プログラミング』無料プレゼント »

コメントはこちらの Ido-Batarian BBS へどうぞ。