如果它已经存在于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');