いわゆる mkdir -p みたいなことをやる module 探してたのよ。



#!/usr/bin/perl
use strict;

use warnings;

use File::Path;
mkpath('some/crap/dir', 1);

で、これを実行する。

% ./test_file_path.pl
mkdir some
mkdir some/crap
mkdir some/crap/dir

% ls -R some
crap/

some/crap:
dir/

some/crap/dir:

おお。望みどおりだ。

きっと File::Spec と一緒に使うと幸せになれるんだろうな。