# C:\Perl\bin\perl.exe

use strict;
use warnings;

my $quelle = 'C:\Dokumente und Einstellungen\stephan\Desktop\output';
my $ziel = 'C:\Dokumente und Einstellungen\stephan\Desktop\output_verarbeitet';
my $datei_zum_schreiben = 'verarbeitet.txt';
my @quelle_files;
my @ziel_files;
my $dhandlequelle;

#################################################################################################
#                               Verschieben der vielen kleinen Textdateien                                                              #
#################################################################################################
(opendir($dhandlequelle, $quelle)) or (die "Quellverzeichnis konnte nicht geoeffnet werden: $!\n");
@quelle_files = readdir($dhandlequelle);
foreach my $temp_quelle_files(@quelle_files) {
        next if -d $temp_quelle_files;
        unless($temp_quelle_files=~ m/\.pl$/i) {
                print "$temp_quelle_files\n";
                rename ($temp_quelle_files, "$ziel"."\\"."$temp_quelle_files");
        } #unless
} #foreach
closedir($dhandlequelle);

(opendir(my $dhandleziel, $ziel)) or (die "Zielverzeichnis konnte nicht geoeffnet werden: $!\n");
(open(my $fhandle_gesamtdatei, "> $ziel"."\\"."$datei_zum_schreiben")) or (die "Datei '$ziel\\$datei_zum_schreiben' konnte nicht geoeffnet werden: $!\n");

(@ziel_files=readdir($dhandleziel)) or (die "Zielverzeichnis konnte nicht gelesen werden");
foreach my $temp_ziel_files(@ziel_files) {
        next if -d $temp_ziel_files;
        unless($temp_ziel_files=~ m/^verarbeitet.txt$/i) {
                (open(my $fhandle_einzeldateien, "$ziel"."\\"."$temp_ziel_files")) or (die "Die Datei '$temp_ziel_files' konnte nicht geoeffnet werden: $!\n");
                
                foreach my $textzeile ($fhandle_einzeldateien) {
                        chomp($textzeile);
                        print($fhandle_gesamtdatei "$textzeile\n");                     
                } #foreach zeile in kleinen Dateien
        } #wenn die txt nicht verarbeitet.txt heist
}#foreach

closedir($dhandleziel);