編集 |
編集(管理者用) |
差分
File::Findモジュールについてのメモ。
長すぎてスマートなワンライン・ツールというのは憚られますが、自分が再利用するために、File::Findモジュールを使ってワンラインで行った作業をメモ。
perl -MFile::Find -e "find(sub {print qq($File::Find::name\n);}, '.');"
perl -MFile::Find -e "find(sub {print qq($File::Find::name\n) if (-d $_ and $_ eq 'CVS');}, '.');"
perl -MFile::Find -MFile::Path -e "find(sub {rmtree($_, 1, 1) if (-d $_ and $_ eq 'CVS');}, '.');"
更新日時の整形のためにDate::Formatモジュールを読み込みtime2str関数を使用していますが、新旧比較のための更新時刻値（そのままの1970年1月1日からの秒数）が出力されるだけでよければ、Date::Formatモジュールは不要です。
perl -MFile::Find -MDate::Format -e "find(sub { printf(qq([%s] %s\n), time2str('%y/%m/%d %T', (stat($_))[9]), $File::Find::name) if (-f $_);}, '.');"
