Question

Possible Duplicate:
How do I create a directory and parent directories in one Perl command?

Given this scenario:
I got an id like “37093”.
I execute some perl code to create a path name from this

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

Path is now: “3/7/0/9/3”;

Now i want to recursively create all directories that are still not created.

How can this easiliy be done?

Answer 1

File::Path and 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";
}