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