使用perl脚本递归删除文件

Question

我只想在perl脚本中使用"rmdir“删除目录中的所有文件。我正在尝试先清理目录，然后再尝试写入文件。我知道我只能使用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"); }
}

Answer 1

$ftp->rmdir($dir_name, 1);

https://metacpan.org/pod/Net::FTP#rmdir-DIR-RECURSE