[perl] File::Copy 파일 복사

펄에서의 파일복사

일반적인 텍스트 파일이라면

여러가지 방법이있다.

my $src="src.txt";
my $dest="dest.txt";
open(DEST,">$dest") or die $!;
open(SRC,"<$src") or die $!;
while(){
 print DEST $_; 
}
close(SRC);
close(DEST);

위 방법은 제일 원시적인 방법이다.

하지만 Perl에는 파일 복사 함수가 따로없어, cpan에서 다운받으면 된다.

있는걸 쓰자!

있는걸 쓰는 이유는 이 복사함수는 모든 파일에대해 완벽한 복사를 보장한다.

위의 소스는 png 나 jpeg등의 파일복사를 못한다....ㅠㅠ

설치모듈은 File::Copy 이다.

당연히 윈도우에서는 notest force install 이다.

하지만 에러를 창창 뿜어내는데, 그냥 무시해주면 된다.

리눅스에서는 깔끔하게 설치된다.

use File::Copy;

이고

함수는 copy 이다. 첫번째 인자가 원본이다. 두번째가 목적파일이다.

우리는 각 파일의 경로만 인자로 주면 된다.