如何在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");

如果可能，

use File::Path qw( make_path );
my $dir_qfn = 'D:/Test/Data/foo';
make_path($dir_qfn);

Answer 2

此语法将检查目录是否存在，并在需要时创建

# here include path to new directory name
$newdir = './directory_name';
opendir(DIR, $newdir) || mkdir($newdir,0777) || die "Cannot create directory $newdir; $!";

Answer 3

您也可以使用：

my $dir = "../../folder/my_dir";
# if dir not exists create it
unless (-d "$dir") {`mkdirhier $dir`;}