在perl中壓縮文件

Question

我一直在嘗試壓縮遠程windows服務器上的文件，但無論我嘗試過什麼都沒有獲得成功。以下是代碼的小小代表。請告訴我哪裏錯了。此代碼不會產生任何錯誤，但不會生成zip文件。

use strict; 
use warnings; 

# before running check perl module is installed in your PC. 

use Archive::Zip; 
use File::Basename 'basename'; 

my @files = ('D:\Scripts\Testing\abc.txt');  
    # if it is more than one file add it by using comma as separator 

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

foreach my $file (@files) { 
    my $member = basename $file; 
    printf qq{Adding file "%s" as archive member "%s"\n}, $file, $member; 
    $zip->addFile($file, $member); 
    printf "Member added\n"; 
} 
printf "Writing to zip\n"; 
$zip->writeToFileNamed('zippedFolders.zip'); 
    #zip file name change it as u want 

Answer 1

請你：

use Cwd; 
use strict; 
use warnings; 
# before running check perl module is installed in your PC. 
use Archive::Zip; 
use File::Basename; 

my (@files,$dirname,$bsename) = ""; 
my $inFile = "D:\\Scripts\\Testing\\abc.txt"; # if it is more than one file add it by using comma as separator 
my $curdir = getcwd(); 

#Need to open file here and to be read the file 
open(IN, $inFile) || die "Cant \n"; 
while(<IN>) { 
    my $sngfile = $_; 
    chomp($sngfile); 
    push(@files, $sngfile); 
} 
my $zip = Archive::Zip->new(); 
foreach my $file (@files) 
{ 
    $dirname = dirname($file); 
    $bsename = basename($file); 

    #Check file exist here your code 
    if($dirname!~m/\.$/) { 
    print "$dirname\t$bsename\n"; 
    #printf qq{Adding file "%s" as archive member "%s"\n}, $dirname, $bsename; 
    $zip->addFile("$dirname/$bsename"); } 
} 
printf "$curdir\\Writing to zip\n"; 
$zip->writeToFileNamed("$curdir/zippedFolders.zip"); #zip file name change it as u want