使用perl脚本递归删除文件

时间:2014-06-27 13:59:03

标签: perl recursion ftp rmdir

我想仅使用" 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"); }
}

1 个答案:

答案 0 :(得分:0)