« 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

Please post your comments -> Ido-Batarian BBS
コメントはこちらの Ido-Batarian BBS へどうぞ。

« Perl で3桁の数字を000から100まで生成 | メイン | 『Java並行処理プログラミング』無料プレゼント »

人気ブログランキング - NI-Lab.'s ヅラッシュドット [Valid RSS]