Tweet
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
use Archive::Zip::Tree;
my $zip = Archive::Zip->new();
$zip->addTree("Verzeichnis","");
$zip->writeToFileNamed("test.zip");
// add the subdirectory ... important!
$zipfile -> add_dir("bilder/");
// add the binary data stored in the string 'filedata'
$filedata = "(read your file into $filedata)";
$zipfile -> add_file($filedata, "bilder/file.txt");
// add the subdirectory ... important!
$zipfile -> add_dir("bilder/");
// add the binary data stored in the string 'filedata'
//$filedata = "(read your file into $filedata)";
//$zipfile -> add_file($filedata, "bilder/file.txt");
<?
$dateihandle = fopen("logo.jpg",r); //Hier das Bild angeben
$bild = fread($dateihandle,1024000); //Da wird das Bild ausgelesen (bis zu 1MB atm)
$zipfile = new zipfile();
// add the subdirectory ... important!
$zipfile -> add_dir("/");
// add the binary data stored in the string 'filedata'
$filedata = $bild;
$zipfile -> add_file($filedata, "bild.jpg");
// OR instead of doing that, you can write out the file to the loca disk like this:
$filename = "output.zip";
$fd = fopen ($filename, "wb");
$out = fwrite ($fd, $zipfile -> file());
fclose ($fd);
// then offer it to the user to download:
echo "<a href=output.zip>Click here to download the new zip file.</a> ";
?>
Comment