Как создать каталог и родительские каталоги в одной команде Perl?

Question

В Perl, как я могу создать подкаталог и в то же время создать родительские каталоги, если они не существуют? Как команда mkdir -p UNIX?

Answer 1

use File::Path qw(make_path); 
make_path("path/to/sub/directory"); 

Устаревшей mkpath и предпочтительным make_path вытекает из обсуждения в Perl 5 Porters нить, что заархивированы here.

Вкратце, тестирование Perl 5.10 показало неловкость в анализе аргументов интерфейса makepath(). Таким образом, он был заменен более простой версией, в которой в качестве конечного аргумента принимался хеш для установки параметров функции.

Answer 2

Использование mkpath из модуля File :: Path:

use File::Path qw(mkpath); 
mkpath("path/to/sub/directory"); 

Answer 3

исх http://perldoc.perl.org/File/Path.html

«Функция make_path создает данные каталоги, если они не существует [так!] Перед тем, как и команды Unix mkdir -p»

Answer 4

Пожалуйста игнорируемых, если вы ищете Perl модуль с «MkDir -p» функциональность, но следующий код будет работать:

my $dir = '/root/example/dir'; 

system ("mkdir -p $dir 2> /dev/null") == 0 
    or die "failed to create $dir. exiting...\n"; 

вы можете использовать модуль, но тогда вы должны установить его на каждом сервере, который вы собираетесь портировать свой код на. Обычно я предпочитаю использовать системную функцию для работы типа mkdir, потому что для импорта и вызова модуля требуется меньше ресурсов, когда мне нужно его только один раз, чтобы создать каталог.