如何在 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`;}

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

How to create a folder using mkdir in Perl?

perl

directory

mkdir