なぜか野良になったローカルの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)