¿Cuál es la mejor manera en Perl para copiar archivos en un árbol de directorios aún por crear?

Question

¿Cuál es la mejor manera en Perl para copiar archivos en un árbol de directorios de destino aún por crear?

Algo así como

copy("test.txt","tardir/dest1/dest2/text.txt"); 

no va a funcionar desde/Dest1/dest2 todavía no existe el directorio tardir. ¿Cuál es la mejor manera de copiar con la creación de directorios en Perl?

Answer 1

use File::Path; 
use File::Copy; 

my $path = "tardir/dest1/dest2/"; 
my $file = "test.txt"; 

if (! -d $path) 
{ 
    my $dirs = eval { mkpath($path) }; 
    die "Failed to create $path: $@\n" unless $dirs; 
} 

copy($file,$path) or die "Failed to copy $file: $!\n"; 

Answer 2

use File::Basename qw/dirname/; 
use File::Copy; 

sub mkdir_recursive { 
    my $path = shift; 
    mkdir_recursive(dirname($path)) if not -d dirname($path); 
    mkdir $path or die "Could not make dir $path: $!" if not -d $path; 
    return; 
} 

sub mkdir_and_copy { 
    my ($from, $to) = @_; 
    mkdir_recursive(dirname($to)); 
    copy($from, $to) or die "Couldn't copy: $!"; 
    return; 
} 

Answer 3

File::Copy::Recursive :: FCOPY() no se considera básica, pero combina el archivo :: :: Ruta mkpath() y File :: :: Copia de copia() solución en algo aún más cortos, y conservas permisos a diferencia de File :: Copy. También contiene otras funciones de utilidad ingeniosas.

Answer 4

ver las otras respuestas para hacer la copia, pero para crear el directorio Path::Class es muy agradable de usar:

use Path::Class; 

my $destination_file = file('tardir/dest1/dest2/test.txt'); 
$destination_file->dir->mkpath; 

# ... do the copying here