पर्ल में अभी तक बनने वाली निर्देशिका पेड़ में फ़ाइलों की प्रतिलिपि बनाने का सबसे अच्छा तरीका क्या है?

Question

पर्ल में अभी तक बनाई जाने वाली गंतव्य निर्देशिका पेड़ में फ़ाइलों की प्रतिलिपि बनाने का सबसे अच्छा तरीका क्या है? के बाद से निर्देशिका tardir/dest1/dest2 अभी मौजूद नहीं है

कुछ

तरह

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

काम नहीं करेगा। पर्ल में निर्देशिका निर्माण के साथ प्रतिलिपि बनाने का सबसे अच्छा तरीका क्या है?

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() गैर-प्रमुख है, लेकिन) फ़ाइल :: पथ :: mkpath (जोड़ती है और फ़ाइल :: कॉपी :: प्रतिलिपि() कुछ में समाधान भी कम है, और बरकरार रखता है फ़ाइल :: कॉपी के विपरीत अनुमतियां। इसमें अन्य निफ्टी उपयोगिता कार्य भी शामिल हैं।

Answer 4

नकल करने के लिए अन्य उत्तर देखें, लेकिन निर्देशिका बनाने के लिए Path::Class उपयोग करने के लिए बहुत अच्छा है:

use Path::Class; 

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

# ... do the copying here