Как я могу создать каталог, если Вы не существуете с помощью Perl?

Question

Как я могу создать каталог, если Вы не существуете с помощью Perl?

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

11

directory perl

задан Peter Mortensen 25 April 2018 в 18:02

4 ответа

Erm... mkdir $stat_dir unless -d $stat_dir?

Это действительно не походит на хорошую идею встроить 'дополнительные' вопросы как этот.

16

ответ дан 3 December 2019 в 01:53

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

Смотрите на perldoc perlfunc или mkdir программу от Электроинструментов Perl.

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

3

ответ дан 3 December 2019 в 01:53

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

3

ответ дан 3 December 2019 в 01:53

Другие вопросы по тегам:

directory perl

Похожие вопросы:

score 14 · Accepted Answer

Используйте -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;
}