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

Question

  

可能重复：
  How do I create a directory and parent directories in one Perl command?

考虑到这种情况： 我有一个像“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