title image


Smiley Re: Archiv::Zip
Hab´s jetzt hingekriegt, hier mein Skript:



use Archive::Zip qw( :ERROR_CODES :CONSTANTS );



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

$dirname = "d:\\ziptest\\";

opendir(DIR, $dirname) or die "kann Verzeichnis nicht öffnen: ";

while (defined($file = readdir(DIR))) {

next if $file =~ /^\.\.?$/; # . und .. ueberspringen

print "\n";

print $file;

$zip->addFile("D:\\ziptest\\$file");

}

$zip->writeToFileNamed("d:\\ziptest\\eps.zip");



Jetzt wird das ganze Verzeichnis gezipt.



Danke

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: