Path::Class と File::Path でディレクトリ作成

use File::Path qw(make_path);
use Path::Class;

my $err;
make_path(dir('dir', 'to', 'make'), { error => \$err });

if (scalar @{$err}) { print 'Could not create directory: ' . join(', ', @{$err}); }

追記:
File::Pathのバージョン違い?で動かない場合があるかもしれない。
その場合はこんな感じで。

use File::Path;
use Path::Class;
eval { mkpath([ dir('dir', 'to', 'make') ]); };

$@ and die $@; // or any way you want to notice error

Leave a Reply