1つのPerlコマンドでディレクトリと親ディレクトリを作成するにはどうすればよいですか？

Question

Perlでは、サブディレクトリを作成すると同時に、親ディレクトリが存在しない場合は作成できますか？ UNIXのmkdir -pコマンドと同様？

Answer 1

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

非推奨mkpath、好ましいmake_pathは5人のポーターはそれがhereをアーカイブのスレッドPerlでの議論から茎。

簡単に言えば、Perl 5.10のテストでは、makepath（）インタフェースの引数解析で扱いにくかったです。したがって、関数のオプションを設定する最後の引数としてハッシュを取ったより単純なバージョンに置き換えられました。

Answer 2

ファイルから使用mkpath ::パスモジュール：

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

Answer 3

REF http://perldoc.perl.org/File/Path.html

は、あなたがPerlのを探しているなら

Answer 4

親切に無視「彼らが存在しない場合は[原文のまま！]前make_path機能は非常にUnixコマンドのようなmkdir -p、与えられたディレクトリを作成します」 「MKDIR -p」機能が、次のコードでモジュールは動作します：

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

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

あなたはモジュールを使用することができますが、その後、あなたが上のポートにあなたのコードを予定している各サーバーにインストールする必要があります。私は通常、mkdirのような作業のためにシステム関数を使う方が好きです。なぜなら、ディレクトリを作成するためにモジュールを一度しか必要としないときは、モジュールをインポートして呼び出すためのオーバーヘッドが少ないからです。