perl 使用mkdir 提示 file exists

Question

在使用mkdir之前已经使用过'-d'检查要新建目录是否存在,
执行后, 仍然提示 File exists.
work 目录新建成功了的.

是权限方面的问题还是, -d 检查有问题?

my $directory = "work/month"
if ( ! -d $directory) {
    if ( ! mkdir($directory, 0777)) {
        print $!;
    }

Answer 1

有没有这个可能, 两个perl script进程都在调用这个function,
Proc1: check -d ok; -------------> mkdir ok;
Proc2: ------------ check -d ok; ------------- mkdir File exists, ERROR!!!

Answer 2

-d 检测目标是否是一个目录

如果目标存在且是一个文件， -d 会返回 false 。同时，mkdir 也会失败（同名文件已存在）。

===========

你可以自己 ls 一下啊 .....