如果使用Perl不存在目录，我该如何创建目录？

Question

目前，我的Perl输出是硬编码的，可以转储到以下Unix目录中：

my $stat_dir = "/home/courses/" . **NEED DIR VAR HERE**;

文件名是这样构建的：

$stat_file = $stat_dir . "/" . $sess.substr($yr, 2, 2) . "_COURSES.csv";

我需要一种类似的方法来构建Unix目录，但我需要在创建它们之前先检查它们是否存在。

如何对$ stat_file进行自动编号（修订），以便当这些文件被泵入同一目录时，它们不会覆盖或附加到目录中的现有文件中？

Answer 1

嗯... mkdir $stat_dir unless -d $stat_dir？

嵌入像这样的“额外”问题似乎不是一个好主意。

Answer 2

使用-d运算符和File::Path。

use File::Path qw(make_path);
eval { make_path($dir) };
if ($@) {
  print "Couldn't create $dir: $@";
}

make_path优于mkdir，因为它可以创建任意深度的树。

使用-e检查文件是否存在

my $fileSuffix = 0;
while (-e $filename) {
    $filename = $filePrefix . ++$fileSuffix . $fileExtension;
}

Answer 3

Perl有一个内置函数mkdir

从Perl Power Tools查看perldoc perlfunc或mkdir程序。

我认为创建一个已存在的目录是安全的，请查看文档。

Answer 4

请记住，目录的-d存在并不意味着-w可写。但假设你在个人区域，mkdir($dir) unless(-d $dir)可以正常工作。