如何在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"; 
}