如果在Perl中目录已经存在，我该如何创建一个目录并删除它？

Question

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

我应该明确添加一个 if (-d ...) 还是有一个更简单的 mkdir 已经包含这个功能？

- David B

Answer 1

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

use File::Path qw(make_path remove_tree);

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

- Eugene Yarmash

---

很烦人的是我不能使用 remove_tree($path) or die "..."，而必须显式地添加一个变量来捕获错误，然后检查它。 - David B