#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

###########################################################
# Def
my @pfade = ("test_archive_broschüre");	# Quelle(n)
my $ziel_zip = 'test.zip';				# Zieldatei

###########################################################
# Pre
say("\n\n\n".('-' x 80)."\ngeht los");

require Encode;

require Archive::Zip;
$Archive::Zip::UNICODE = 0;		# Name "Archive::Zip::UNICODE" used only once...
if ($^O =~ /mswin/i) {
	$Archive::Zip::UNICODE = 1;
}
Archive::Zip->setErrorHandler(
	sub {
		$_[0] =~ s/[ \r\n]$//g;
		say("FEHLER '$_[0]' mit caller '".join('*',caller)."'");
		goto(ENDE);
	}
);
say("Archive::Zip Version: ".(Archive::Zip->VERSION));

###########################################################
{	# write ZIP
	my $zip = Archive::Zip->new();
	while (scalar(@pfade)) {
		my $pfad = shift(@pfade);
		if (opendir(my $fh,$pfad)) {
			foreach my $file (sort {$a cmp $b} readdir($fh)) {
				next() if $file eq '.' || $file eq '..';
				my $win_konsole;
				{	# Gegenprobe
					my $roh = Encode::decode('iso-8859-1',$file);
					say "Roh: '$roh'";
					$win_konsole = Encode::encode('cp850',$roh);
					say "Win: '$win_konsole'";
				}
				if (-d "$pfad/$file") {
					push(@pfade,"$pfad/$file");
				}
				else {
					say("add '$pfad/$file'");
					my $file_member = $zip->addFile({
						filename			=> "$pfad/$file",
						compressionLevel	=> Archive::Zip::COMPRESSION_LEVEL_FASTEST(),
					});
				}
			}
		}
	}
	if (!-f $ziel_zip || unlink($ziel_zip)) {
		unless($zip->writeToFileNamed($ziel_zip) == Archive::Zip::AZ_OK()) {
			die("Fehler in ".__LINE__);
		}
	}
	else { die("Fehler in ".__LINE__); }
}

###########################################################
{ # read ZIP
	my $zip = Archive::Zip->new();
	if ($zip->read($ziel_zip) == Archive::Zip::AZ_OK()) {
		if (exists $zip->{members} && scalar(@{$zip->{members}})) {
			foreach my $ref (@{$zip->{members}}) {
				my $fn = $ref->{fileName};
				say("Dateiname im ZIP: ====> '$fn' <====");
			}
		}
		else { die("Fehler in ".__LINE__); }
	}
	else { die("Fehler in ".__LINE__); }
}

###########################################################
# End
ENDE:
say("Fertig\n".('-' x 80));