如何在Perl中创建一个包含所有子目录的路径？

Question

如果你有一个文件路径（例如，/home/bob/test/foo.txt），其中路径中的每个子目录可能存在也可能不存在，我怎样才能以某种方式创建文件foo.txt使用“/home/bob/test/foo.txt”作为唯一的输入，而不是在路径中逐个创建每个不存在的目录，最后创建foo.txt本身？

Answer 1

您可以使用File::Basename和File::Path

use strict; 
use File::Basename; 
use File::Path qw/make_path/; 

my $file = "/home/bob/test/foo.txt"; 
my $dir = dirname($file); 
make_path($dir); 
open my $fh, '>', $file or die "Ouch: $!\n"; # now go do stuff w/file 

我没加任何测试，看看文件已经存在，但是这很容易用Perl补充。

Answer 2

使用make_dir from File::Util

use File::Util; 
    my($f) = File::Util->new(); 
    $f->make_dir('/var/tmp/tempfiles/foo/bar/'); 

    # optionally specify a creation bitmask to be used in directory creations 
    $f->make_dir('/var/tmp/tempfiles/foo/bar/',0755); 

Answer 3

我不认为有，可以做所有的你问什么，直接从文件名的标准功能。

但是来自模块File :: Path的mkpath（）几乎可以在给定文件名的目录的情况下完成。从文件::路径文档：

的“mkpath”功能提供了一个 便捷的方式来创建目录， 即使你的“MKDIR”内核调用不会 创建于 目录的多个级别一次。

请注意，mkpath（）不会以很好的方式报告错误：由于某种原因，它会死亡而不是返回零。

鉴于这一切，你可以这样做：

use File::Basename; 
use File::Path; 

my $fname = "/home/bob/test/foo.txt"; 

eval { 
    local $SIG{'__DIE__'}; # ignore user-defined die handlers 
    mkpath(dirname($fname)); 
}; 
my $fh; 
if ($@) { 
    print STDERR "Error creating dir: $@"; 
} elsif (!open($fh, ">", $fname)) { 
    print STDERR "Error creating file: $!\n"; 
}