清空.svn目录的Perl脚本

最新推荐文章于 2025-10-26 15:34:44 发布

最新推荐文章于 2025-10-26 15:34:44 发布 · 81 阅读

本文介绍了一个用于自动清除版本控制系统如VSS和SVN留下的特殊文件的Perl脚本。该脚本能够递归地遍历指定目录并删除与版本控制相关的文件夹，如VSS产生的*.scc文件及SVN的.svn文件夹，从而简化了代码发布前的手动清理工作。

很多项目用VSS、SVN管理代码，这些软件往往会在代码目录里留下印迹，VSS会留下*.scc，SVN则在每个目录下放一个.svn。每次发布和拷贝时都得清理这些文件。为了偷懒，写了这个清理脚本，一劳永逸！

#!/usr/bin/perl use File::Path; use strict; use warnings; my @tree=<*>; foreach (@tree){ &if_a_tree($_); } sub if_a_tree{ if(-d && $_ ne "." && $_ ne ".."){ print "$_ is a directory/n"; if ($_ eq ".svn") { rmtree $_; return; } chdir $_; my @tree=<* .*>; foreach(@tree){ &if_a_tree($_); } chdir ".."; } if(-f){ print "$_ just a file/n"; } }