#!/usr/bin/perl -w

use strict;
use warnings;

my $strVereichnis = "Verzeichnis_A";
my $strAblageVer = "Verzeichnis_B";


use Cwd;
use File::Copy;

# habe versucht mit Zip Module zu arbeiten, leider nicht hin bekommen :-(
#use Archive::Zip;
#use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
#use Compress::Raw::Zlib ;



my $VerzPfad = cwd . '/'; # Verzeichnis Pfad ohne Dateinanem auslesen.

# Auslesen aller zip Dateien, und NUR zip Dateien.
my $result=opendir(DIR,$strVereichnis) || die $!;
my @files =  grep { /\.zip$/ } readdir(DIR);
close DIR;

# Nur kopieren
foreach my $dateien ( @files )
{
    copy( $strVereichnis.'/'.$dateien, $strAblageVer.'/'.$dateien );   

    # Versuch im gleichem "Zug" die Dateien zu entpacken.
    #system("unzip", $VerzPfad.$strAblageVer.'/'.$dateien );
   
    # Versuche mit Zip zu arbeiten :-(
    #my $zipName = shift($strAblageVer.'/'.$dateien );
    #my $status = $zip->read( $strAblageVer.'/'.$dateien  );       
}

print "\nKopierne fertig\n\n";

chdir($VerzPfad.$strAblageVer) or die(qq#ERROR chdir "$VerzPfad.$strAblageVer" ($!)\n#);

foreach my $dateien ( @files )
{
    # entpacken
    system("/usr/bin/unzip", $VerzPfad.$strAblageVer.'/'.$dateien ) == 0 or die "system Fehler: $?";
    # die Zip Dateien löschen
    unlink( $VerzPfad.$strAblageVer.'/'.$dateien  );
}
print "\nfertig!\n\n";