Perl로 파일을 복사하고 타임 스탬프를 유지하려면 어떻게해야합니까?

Question

File :: Copy 모듈을 사용하여 Perl에서 파일을 복사합니다.

#! /usr/bin/perl -w 

use File::Copy; 

copy("somefile.log", "copiedfile.log"); 

타임 스탬프 (특히 수정 시간)를 보존하고 싶지만 옵션이 아닌 것으로 보입니다.

"cp -p"에 대한 시스템 호출을하지 않고도이를 수행 할 수있는 간단한 방법이 있습니까?

Answer 1

stat을 사용하면 타임 스탬프를 얻고 utime을 사용하여 설정할 수 있습니다. 그걸로 도망 갈 수 있다면, 시스템이 항상 나쁜 것은 아닙니다. cp -p보다 빠른 것을 만들지 않을 것입니다. File::Copy은 그렇게 하겠지만 유닉스에서는 그렇지 않을 것입니다. Abigail은 RT #96158을 제기했지만 아무런 조치없이 폐쇄되었습니다. 그는 부서짐에 대한 프레젠테이션을 가지고 있지만 온라인으로는 보지 못했습니다.

Answer 2

체크 File::Copy을 확인하십시오. syscopy 또는 rmscopy을 찾으십시오. 거기에 타임 스탬프에 대해 이야기합니다.