perl で mkdir -p 同様のことをするには、File::Path の mkpath を使うと良いらしい。

#!/usr/bin/perl -w


use strict;
use warnings;
use File::Path;


my @dir = mkpath ('/data/test/1/2/3/');
for (@dir) {
    print $_ . "\n";
}

実行結果は、作成したディレクトリパスの配列。以下は、/data/test が存在していた場合の結果。

/data/test/1
/data/test/1/2
/data/test/1/2/3

ラクチンです。危なく自分でループ回すところでした。

なかなか便利なモジュールのノウハウが蓄積されないので、やりたいことがあったら、まずはモジュールを探してみる癖を付けるようにしたいなあ。perl ってサクサク書けるので、ちょっとした処理だったら自前でサブルーチン用意してしまっているんですが、本当はもったいないですよね...。

学習ベースの防備録として今後モジュール関連ネタ、メモしていきます。

関連記事

Perl で加重ラウンドロビン

FileCache と Memcached を比較する

LWP でベーシック認証に対応する

perl で配列に要素が含まれているか調べる方法

perl でビット演算の結果を数値比較する際の注意点