Perl копирование файлов из одного каталога в другой

Question

Я пытаюсь скопировать файлы из нескольких каталогов с приведенным ниже кодом. Он печатает правильный путь и файлы, но не копирует их. Пожалуйста, предложите, как решить эту проблему? Благодаря

#!/usr/bin/perl 

use strict; 
use warnings; 
use File::Copy; 

my $target_dir = ""; 

my @dirs = grep { -d } glob '/data/results/*'; 

for my $source_dir (@dirs) { 

    opendir(my $DIR, $source_dir) || die "can't opendir $source_dir: $!"; 
    my @files = readdir($DIR); 

    print "the directory is $source_dir\n"; 
    my $run_folder = (split '/', $source_dir)[3]; 
    print "the folder is $run_folder\n"; 

    $target_dir = "/data/backup/$run_folder"; 
    print $target_dir; 

    foreach my $t (@files) 
    { 
     if(-f "$source_dir/$t") { 
     #Check with -f only for files (no directories) 
     print "$source_dir/$t"; 
     print "$target_dir/$t"; 

     copy "$source_dir/$t", "$target_dir/$t"; 
     } 
    } 

    closedir($DIR); 

} 

Answer 1

Есть несколько вещей, которые я бы рекомендовал вам сделать:

Закройте файл ручками как можно скорее, если вы не используете его больше:

opendir(my $DIR, $source_dir) || die "can't opendir $source_dir: $!"; 
    my @files = readdir($DIR); 
    close ($DIR); 

Как вы при попытке создать резервную копию некоторых файлов и каталогов, у целевого адресата не будет каталога:

$target_dir = "/data/backup/$run_folder"; 
print $target_dir; 

if (! -d $target_dir) 
{ 
    #creates the dir 
} 

И последнее:

foreach my $t (@files) 
    { 
     chomp $t; # it removes any new line 
     if(-f "$source_dir/$t") { 
     #Check with -f only for files (no directories) 
     print "$source_dir/$t"; 
     print "$target_dir/$t"; 

     if (! copy "$source_dir/$t", "$target_dir/$t") 
     { 
      print "Some error: $!"; 
     } 


     } 
    } 

Всегда TIMTOWTD, вы можете использовать File :: Find, который имеет простой учебник here.