2015-01-19 1 views
1

저는 perl을 처음 사용하고 있으며 전체 디렉토리 내용을 다른 디렉토리에 복사하는 기본 프로그램을 작성하려고합니다. 내 첫 번째 장애물은 내가 소스 및 대상에 대한 절대 경로를 줄 필요가 내가 그렇게하려면 다음 코드를 얻이 수없는 것이다 : 나는 이것을 실행하면Perl fcopy() 함수에 전체 또는 절대 경로를 제공하는 방법

use strict; 
use warnings; 
use File::Copy; 
use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove); 

my $source_dir = "C:\\Tools\\MyTool\\Scripts"; 
my $destination_dir = "C:\\Tools\\MyTool\\Scripts_Copy"; 

fcopy($source_dir,$destination_dir) or die $!; 

, 나는 그 오류를 얻을 " 해당 파일 또는 디렉토리 "

+1

백 슬래시 대신 슬래시를 사용해야합니다. – ProfGhost

+0

감사합니다. 내 $ source_dir = 'C :/Tools/MyTool/Scripts'; 내 $ destination_dir = "C :/Tools/MyTool/Scripts_Copy"; 그래도 여전히 행운이 없습니다 – Mukta

+1

후자의 함수는 파일이나 디렉토리를 복사해야하는지에 따라'dircopy' 또는'fcopy'를 사용합니다. 자세한 설명은 다음을 참조하십시오 : fcopy는 파일 *을 복사하기위한 것입니다. http://search.cpan.org/~dmuey/File-Copy-Recursive-0.38/Recursive.pm –

답변

2

fcopy파일, 복사 디렉토리에 대한 dircopy를 복사하지 않습니다. 을 사용하면 파일이나 디렉토리를 복사해야하는지 여부에 따라 적절한 기능을 사용하기로 결정합니다.

자세한 내용은 CPAN documentation of File::Copy::Recursive을 참조하십시오.

관련 문제