如果使用Perl不存在目录,我该如何创建目录?
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了如果使用Perl不存在目录,我该如何创建目录?相关的知识,希望对你有一定的参考价值。
目前,我的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进行自动编号(修订),以便当这些文件被泵入同一目录时,它们不会覆盖或附加到目录中的现有文件?
答案
使用-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;
}
另一答案
呃... mkdir $stat_dir unless -d $stat_dir
?
嵌入这样的“额外”问题似乎不是一个好主意。
另一答案
Perl有一个内置函数mkdir
看看perldoc perlfunc或Perl Power Tools的mkdir程序。
我相信创建一个已经存在的目录是安全的,看看文档。
另一答案
记住目录的-d
存在并不意味着-w
可写。但假设你在个人区域,mkdir($dir) unless(-d $dir)
将工作正常。
以上是关于如果使用Perl不存在目录,我该如何创建目录?的主要内容,如果未能解决你的问题,请参考以下文章