perl - mkpath File::Path 似乎没有按预期工作

Question

我正在使用 mkpath 创建一个目录。

mkpath('/home/myhome') or die "Create of directory  failed: $!";

如果目录不存在，此方法有效，但如果目录存在，则失败。从 perldocs 说它类似于 mkdir -p unix。但是，如果目录已经存在，该命令不会失败。

要安静地创建具有多个路径的目录，我应该注意什么？v5.8.8

Answer 1

mkpath 会在出错时抛出异常，因此您需要以下内容:

mkpath('/home/myhome');

如果您想要自定义消息，可以使用以下内容:

eval { mkpath('/home/myhome'); 1 }
   or die "Can't create home directory: $@\n";

注意使用$@，而不是$!。