如果 Perl 中已存在一个目录，如何创建它但将其删除？

Question

我想创建一个目录，但如果它已经存在，我想首先删除它（及其所有内容）。

我应该显式添加一个 if (-d ...) 还是有一个更简单的 mkdir 已经做到了这一点？

Answer 1

您可以使用核心 File::Path 模块中的函数：

use File::Path qw(make_path remove_tree);

remove_tree('foo/bar/baz');
make_path('foo/bar/baz');