谁能帮我用perl写个删除目录的小程序？

[skyover]

ftp上有些目录老是删除不了。改成777也一样。。麻烦。。

[AllCHN]

sub RemoveDIR {
# 参数为路径
my $entry;
my $path = $_[0];
opendir(DIR,$path);
my @entries = readdir(DIR);
closedir(DIR);
foreach $entry (@entries) {
next if (($entry eq ".") || ($entry eq ".."));
if (-d "$path/$entry") { # 是目录吗?
&RemoveDIR("$path/$entry"); # 不包含子目录时，换成 return;
} else {
unlink "$path/$entry";
}
}
rmdir($path);
}

[JAPL]

use File::Find;

# finddepth 是一个目录走到底,之后一层层递归回去.
finddepth(\&remove,$dir);

sub remove {
print "deleting $_";
# next if $_ eq '.' or $_ eq '..';
# 当前目录(是最底层)下的文件已被删掉,此时delete空目录
if (-d) {
rmdir or die "$!\n";
next;
}
# delete 文件
unlink $_ or warn "$!\n";
}

简单的,

use FILE::Find;
finddepth( sub{ if(-d){ rmdir;next } unlink},$dir);

不过,要删掉 ftp 上的文件, File::Find 就不能用了(anyone??).
需要 Net::FTP 和 AIICHN 的方法.