Come posso creare un percorso con tutte le sue sottodirectory in uno scatto in Perl?

Question

Se si dispone di un percorso per un file (ad esempio /home/bob/test/foo.txt) in cui ogni sottodirectory nel percorso può o non può esistere, come posso creare il file foo.txt in un modo che usa "/home/bob/test/foo.txt" come unico input invece di creare ogni directory inesistente nel percorso uno alla volta e infine creare foo.txt stesso?

Answer 1

È possibile utilizzare File::Basename e 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 

non ho aggiunto alcun test per vedere se il file esiste già, ma questo è abbastanza facile da aggiungere con Perl.

Answer 2

Usa 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

Io non credo che ci sia una funzione standard che può fare tutto ciò che si chiede, direttamente dal nome del file.

Ma mkpath(), dal modulo File :: Percorso, può quasi farlo data la directory del nome file. Dalla documentazione File :: Path:

La funzione "mkpath" fornisce un modo conveniente per creare le directory, anche se la chiamata kernel "mkdir" Non creerà più di un livello di directory a un tempo.

Si noti che mkpath() non segnala errori in modo positivo: muore invece di restituire zero, per qualche motivo.

dato tutto questo, si potrebbe fare qualcosa di simile:

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"; 
}