¿Cómo puedo crear una ruta con todos sus subdirectorios en una sola toma en Perl?

Question

Si tiene una ruta a un archivo (por ejemplo, /home/bob/test/foo.txt) donde cada subdirectorio de la ruta puede existir o no, ¿cómo puedo crear el archivo foo.txt de forma que usa "/home/bob/test/foo.txt" como la única entrada en lugar de crear todos los directorios inexistentes en la ruta uno por uno y finalmente crear foo.txt en sí mismo?

Answer 1

Puede utilizar File::Basename y 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 

que no añadió ninguna prueba para ver si el archivo ya existe, pero eso es bastante fácil añadir con Perl.

Answer 2

Uso 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

No creo que haya una función estándar que puede hacer todo lo que pide, directamente del nombre de archivo.

Pero mkpath(), desde el módulo File :: Path, casi puede hacerlo dado el directorio del nombre del archivo. A partir de los documentos de archivos :: Ruta:

La función "mkpath" proporciona una manera conveniente para crear directorios, incluso si su llamada núcleo "mkdir" no creará más de un nivel de directorio en un momento.

Tenga en cuenta que mkpath() no informa de errores de una buena manera: en lugar de simplemente devolver cero, por alguna razón muere.

Dado todo eso, es posible hacer algo como:

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