perl - 如何从 Perl 中的单个完整路径创建多个目录？

Question

可能重复：
如何在一个 Perl 命令中创建目录和父目录？

鉴于这种情况：我得到了一个像“37093”这样的ID。我执行一些 perl 代码来创建一个路径名

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

路径现在是：“3/7/0/9/3”；

现在我想递归地创建所有尚未创建的目录。

这怎么能轻松完成？

Answer 1

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

Answer 2

mkdir -p $the_path

这可能会有所帮助。

或者自己写，但我发现这应该有帮助而且更优雅： http: //perldoc.perl.org/File/Path.html