Как создать каталог, если он не существует с помощью 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 каталогов, но нужно проверить, существуют ли они прежде, чем создавать их.

BONUS EXTRA CREDIT WIN:
Автоматическая нумерация $ stat_file, так что, когда эти файлы загружаются в один и тот же каталог, они не перезаписывают или не добавляют к существующим файлам в каталоге. (Я не знаю, был ли этот вопрос еще поставлен на S.O. - извините, если его повторный пост)

Answer 1

Используйте оператора -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 2

Эмм ... mkdir $stat_dir unless -d $stat_dir?

На самом деле не очень хорошая идея вставлять такие «лишние» вопросы.

Answer 3

Perl имеет встроенную функцию mkdir

Взгляните на perldoc perlfunc или программы MKDIR из Perl Power Tools.

Я считаю, что безопасно создать каталог, который уже существует, взгляните на документы.

Answer 4

Помните, что существование -d в каталоге не означает -w для записи. Но при условии, что вы находитесь в личной зоне, mkdir($dir) unless(-d $dir) будет работать нормально.