我想仅使用" rmdir"删除目录中的所有文件。在perl脚本中。 我首先尝试清理目录,然后尝试写入文件。 我知道我可以使用rmtree("目录路径");但我无法将其用于FTP服务器(使用Net :: FTP;)。和rmdir查找空目录。 我试过" remove_tree"和" rm -rf"。我对服务器有读/写权限,但我无法删除文件。
Perl脚本:
finddepth (\&remove_dir, "$path");
rmdir ( "$path" ) or die ("Could not remove $path");
sub remove_dir
{
# for a path, this will be 0
if ( ! (stat("$File::Find::name"))[7] )
{ $ftp->rmdir("$File::Find::name"); }
else
{ $ftp->unlink("$File::Find::name"); }
}