perl을 사용하여 아카이브에 파일을 추가하는 방법 Archive :: Zip?

Question

아카이브 파일을 만들 때 Archive :: Zip을 사용하고 있습니다. 이미 기존 아카이브에 파일을 추가 할 수 있는지 알고 싶습니다. 당신이 당신의 스크립트 내부 우편을 작성하지 않는 경우, 그냥 "읽기"및 파일을 추가

Answer 1

use strict; 
use warnings; 
use Archive::Zip; 

my $zip = Archive::Zip->new(); 
#create your archive 
my $member = #"file you want to add to archive"; 
$zip->addMember($member); 

...

...>이 파일이 잘립니다 writeToFileNamed - 내가 전화 할 때마다처럼 보인다

use warnings; 

use strict; 

use Archive::Zip qw(:ERROR_CODES); 

my $zip = Archive::Zip->new(); 

$zip->read('c:\users\user\desktop\test.zip') == AZ_OK or die "read error\n"; 

$zip->addFile('test.pl'); 

$zip->overwrite()  == AZ_OK or die "write error\n";