Cách tốt nhất trong Perl để sao chép tệp vào cây thư mục chưa được tạo là gì?

Question

Cách tốt nhất trong Perl để sao chép tệp vào cây thư mục đích chưa được tạo là gì?

Something như

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

sẽ không làm việc kể từ khi thư mục tardir/dest1/dest2 chưa tồn tại. Cách tốt nhất để sao chép với tạo thư mục trong Perl là gì?

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() là không cốt lõi nhưng kết hợp các File :: Đường dẫn :: mkpath() và File :: Sao chép :: copy() dung dịch vào một cái gì đó thậm chí ngắn hơn, và bảo tồn quyền không giống như Tệp :: Sao chép. Nó cũng chứa các chức năng tiện ích tiện lợi khác.

Answer 4

Xem câu trả lời khác để thực hiện việc sao chép, nhưng để tạo thư mục Path::Class là rất tốt đẹp để sử dụng:

use Path::Class; 

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

# ... do the copying here