なぜか野良になったローカルの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');}, '.');"

tags: zlashdot Perl Perl

Posted by NI-Lab. (@nilab)