perl - Perlで単一のフルパスから複数のディレクトリを作成する方法は?

Question

重複の可能性:
1 つの Perl コマンドでディレクトリと親ディレクトリを作成するにはどうすればよいですか?

このシナリオを考えると、「37093」のようなIDを取得しました。これからパス名を作成するためにいくつかのperlコードを実行します

my $id = "37093";
my $path = join('/', split(//, $id ) );

パスは「3/7/0/9/3」になりました。

今、まだ作成されていないすべてのディレクトリを再帰的に作成したいと考えています。

これはどのように簡単に行うことができますか？

Answer 1

File::PathおよびTry::Tiny：

use File::Path qw(make_path);
use Try::Tiny;

try {
    make_path '3/7/0/9/3';
} catch {
    warn "make_path failed: $_\n";
}

Answer 2

mkdir -p $the_path

これが役に立ちますように。

または自分で書いてください 。