« 吉里吉里2/KAG3 機能仕様書 | メイン | SVNで古いリポジトリと新しいリポジトリをつなげる »
2008年01月05日
ツール開発メモ:: .svn ディレクトリを perl で消す
Tweet @jin1016をフォロー追記: subversion の場合、ローカルの作業コピーに対してエクスポートを実行できるので、わざわざ以下のようなスクリプトを使わなくても、ローカルの作業コピーをエクスポートする方が楽で速い。
Subversion からエクスポートすれば、.svn ディレクトリは出来ないけど、ローカルに作業コピーがある時は少々時間がかかるのが難点。
そこで、ローカルの作業コピーを適当なディレクトリにコピーして、そのディレクトリで以下のような perl スクリプトを実行すれば、.svn ディレクトリを消すことが出来る。
CVS の場合も以下のスクリプトを少し書き換えるだけで対応出来る。
|
use File::Find; find( sub { rmtree($_, 1, 1) if (-d $_ and $_ eq '.svn');}, '.'); |
投稿者 Takenori : 2008年01月05日 16:55
comments powered by Disqus