ファイル・ディレクトリ一覧を取得
my $path='/var/www/svn/rep';
my @excludelist = qw(dt3_temp dt3_temp2);
my @files = ();
my %excludelist ;
foreach (@excludelist){
$excludelist{$_} = 'true';
}
chdir($path);
@files = <*>;
foreach my $file (@files){
if(-d $file && !exists($excludelist{$file})){
#何かする
}
}