perl의 한 디렉토리에서 다른 디렉토리로 폴더를 복사하는 방법은 무엇입니까?

Question

한 폴더에서 다른 폴더로 폴더를 복사하려고합니다.

예를 들어 나는 D 드라이브에 폴더를 가지고 있습니다. 그 자체가 많은 폴더를 포함하고 있습니다. 하위 폴더가있는이 샘플 폴더를 다른 드라이브에 복사하고 싶습니다. 내가 한 일은 있지만 파일 만 복사합니다.

#!/usr/bin/env perl 

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

my $source_dir = "aa"; 
my $target_dir = "bb"; 

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

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

closedir($DIR); 

이 함께 도와주세요

...

Answer 1

당신은 당신이 아마 dircopy을하고자하는 관련 기능의 번호를 가지고 File::Copy::Recursive 모듈 중 하나를 사용할 필요가 사전에

감사합니다; 또는 모듈은 dircopy과 동일한 기능을 수행하는 mirror 함수와 노드 복사 방법을 제어하는 ​​코드 블록을 제공 할 수있는 recursive 함수를 제공합니다.