, 여기에 (VS에서 빈/핸디, 등 ..) 나는 다른 디렉토리 유형이 일을, 플러스 밖으로내어이 조금 스크립트입니다 :
#!/usr/local/bin/perl -w
#-------------------------------------------------------------------------------
# removedirs.pl - Recursively removes directories from a given root folder
# Author: Nick Gotch
# Date: 07-13-2009
#-------------------------------------------------------------------------------
use strict;
use warnings;
use File::Path;
#-------------------------------------------------------------------------------
# User Setting Variables
#-------------------------------------------------------------------------------
my $basepath = 'C:\\Path\\to\\RootDir\\';
#-------------------------------------------------------------------------------
# Processing
#-------------------------------------------------------------------------------
# Prompt for Confirmation
syswrite(STDOUT, "Confirm removal of directories?\nPress 'Y' to confirm.\n");
$confirm = <STDIN>;
if($confirm =~ /^[Yy]$/)
{
# Add lines here to remove other dirs...
RemoveDir($basepath, ".svn");
syswrite(STDOUT, "Done.\nPress <ENTER> to close.\n");
}
<STDIN>;
sub RemoveDir
{
my ($directory, $dirtodelete) = @_;
if(-e $directory.'\\'.$dirtodelete.'\\')
{
rmtree($directory.$dirtodelete.'\\');
syswrite(STDOUT, "Removed: ".$directory.$dirtodelete.'\\'."\n");
}
opendir(DIR, $directory);
my @subdirlist;
while(my $subdir = readdir(DIR))
{
if(($subdir ne '.') && ($subdir ne '..') && (-d $directory.$subdir))
{
push(@subdirlist, $directory.$subdir.'\\');
}
}
closedir(DIR);
foreach my $subdir (@subdirlist) { RemoveDir($subdir, $dirtodelete); }
}
래리, 좋은 답변입니다. TortoiseSVN을 사용합니다. 나는 svn Export 명령을 알고 있었다. 내 이해는 SVN 내보내기 unversioned 파일을 복사하지 않습니다. 그것이 내가 묻는 이유입니다. (그리고 그 질문을 명확하게해야했습니다). 그것은 내가 거북이 특징을 알지 못한다고 말했다. 버전없는 파일은 그대로 유지합니까? –
나는 이것을 할 필요가 없었기 때문에 나는 모른다. 알아내는 한 가지 방법은 테스트 작업 복사본을 사용하여 환경에서 테스트하는 것입니다. –
** 모두 내보내기 **를 선택하면 버전없는 파일이 포함됩니다. – RedFilter