#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
if ($^O =~ /mswin/i) { $Archive::Zip::UNICODE = 1; }
my $add_verzeichnisse = 0;	# 0=selbst iterieren  1=->addTree() verwenden

my @verzeichnisse = ('/webserver/homepage1/verz2','/webserver/homepage1/verz4');
my $zip = Archive::Zip->new();
while (scalar @verzeichnisse) {
	my $verz = shift @verzeichnisse;
	if ($add_verzeichnisse) {
		$zip->addTree($verz,substr($verz,1),undef,COMPRESSION_LEVEL_BEST_COMPRESSION);
	}
	else {
		if (opendir(my $fh,$verz)) {
			foreach my $file (readdir $fh) {
				next if $file eq '.' || $file eq '..';
				if (-d "$verz/$file") {
					push @verzeichnisse,"$verz/$file";
					say "neues Verzeichnis '$verz/$file'";
				}
				else {
					if (open(my $t,'<',"$verz/$file")) {
						close($t);
						my $file_member = $zip->addFile({
							filename			=> "$verz/$file",
							compressionLevel	=> COMPRESSION_LEVEL_BEST_COMPRESSION,
						});
						say "adde '$verz/$file'";
					}
					else { say "$verz/$file nicht lesbar" }
				}
			}
		}
	}
}
if ($zip->writeToFileNamed("/webserver/homepage1/zipziel/zip.zip") != AZ_OK) {
	die "Kann ZIP '/webserver/homepage1/zipziel' nicht schreiben";
}