perl - 使用 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