如何使用Perl在特定路径下创建文件夹？

Question

我想在不使用mkdir出现我的perl脚本的特定路径中创建一个文件夹。

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");

如果可能，则>

use File::Path qw( make_path );

my $dir_qfn = 'D:/Test/Data/foo';
make_path($dir_qfn);