perl - 如果 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');