【Perl】深い階層のディレクトリを一気に作成する

Perlにはディレクトリを作成するための組み込み関数があります。本記事では、深い階層のディレクトリを一気に作成する方法を紹介します。

サンプルコード

File::Path モジュールのmake_path 関数でディレクトリを作成します。make_path 関数は、ディレクトリが既に存在している場合には、何もせずに成功したと見なします。この振る舞いにより、ディレクトリ作成の際の事前のチェックが不要となり便利に扱えます。

use strict;
use warnings;
use File::Path 'make_path';

my $dir_path = "path/to/your/directory";

# ディレクトリを作成
my @created_dirs = make_path($dir_path);

# 結果を表示
if (@created_dirs) {
    print "以下のディレクトリが作成されました: @created_dirs\n";
} 
else {
    print "ディレクトリ '$dir_path' は既に存在するか、作成する必要がありません。\n";
}

make_path 関数が実際にディレクトリを作成したかどうかは、戻り値のリストで判断可能です。リストが空でない場合は、ディレクトリを作成した、と判定できます。リストの中身は作成したディレクトリ名です。

実行結果

以下のディレクトリが作成されました: path path/to path/to/your path/to/your/directory

まとめ

本記事では、Perlを使用して深い階層のディレクトリを一気に作成する方法を紹介しました。Perlのmake_pathは使い勝手が良いので、ディレクトリを作るスクリプトで活用してみてください。