如何在Perl中使用mkdir创建文件夹？

Question

我想使用mkdir在特定路径中创建一个文件夹。

Answer 1

假设D:/Test/Data存在

my $dir_qfn = 'D:/Test/Data/foo';
mkdir($dir_qfn)
   or $!{EEXIST}   # Don't die if $dir_qfn exists.
   or die("Can't create directory \"$dir_qfn\": $!\n");