perl을 사용하여 특정 폴더에있는 개별 폴더를 압축하는 방법은 무엇입니까?

Question

누군가 나를 기쁘게 해드릴 수 있겠습니까 .....

내 폴더에는 D : \ Zip 안에 A, B, C라고 쓰여 있습니다. A.zip, B.zip을 우편으로 보내야합니다 & C. 우편 번호. 아래 코드는 제가 시도한 코드입니다. CODE :

enter code here 
#!/usr/bin/perl 
use strict; 
use Cwd; 
use File::Copy; 
use Archive::Zip qw(:ERROR_CODES :CONSTANTS); 
use IO::Compress::Zip qw(zip $ZipError) ; 

use File::Basename 'basename'; 
my $path1=getcwd; 
my $zipfile=getcwd."\.zip"; 
my $zip; 

opendir(DIR, "$path1\/"); 
my $mainFolder=grep(/"$path1\/"/,readdir(DIR)); 
close DIR; 

#### Zip Module ##### 
my $f2; 
my $newzipname=$mainFolder; 
print $mainFolder."\n"; 

foreach my $f($mainFolder) 
{ 
print $f."\n"; 
print $mainFolder."asfsd\n";  
my $zip=Archive::Zip->new(); 
$zip->addTree("$f"); 
die 'write error' unless $zip->writeToFileNamed($path1.'.zip') == AZ_OK; 
exit 0; 
} 

Answer 1

이 방법이 유용합니까?

#!/usr/bin/perl 
use strict; 
use Cwd; 
use Archive::Zip qw(:ERROR_CODES :CONSTANTS); 
use File::Spec; 

my $path=getcwd; 

opendir(DIR, $path); 

while (my $entry = readdir DIR) { 
    my $fullpath = File::Spec->catdir($path,$entry); 
    next unless -d $fullpath; 
    next if $entry eq '.' or $entry eq '..'; 
    my $zip=Archive::Zip->new(); 
    $zip->addTree($fullpath); 
    die 'write error' unless $zip->writeToFileNamed($fullpath.'.zip') == AZ_OK; 
} 

close DIR;