# C:\Perl\bin\perl.exe

use strict;
use warnings;

# Hier muss der Ordner mit den kleinen Einzeldateien eingetragen werden
# oder das PerlScript in dem Ordner ausgeführt werden, in dem die 
# Textdateien liegen.

our $quelle = ("C\:\\Dokumente\ und\ Einstellungen\\stephan\\Desktop\\output");
our $ziel = ("C\:\\Dokumente\ und\ Einstellungen\\stephan\\Desktop\\output_verarbeitet");
our @txtliste;
my $DateiZumSchreiben = "verarbeitet.txt";


(opendir(DIRHANDLE1,$quelle)) || (die "Das Quellverzeichnis konnte nicht erfolgreich geoeffnet werden: $!");
(opendir(DIRHANDLE2,$ziel)) || (die "Das Zielverzeichnis konnte nicht geoeffnet werden: $!");

@txtliste=readdir(DIRHANDLE1);
foreach my $dateien(@txtliste) {
        if (-d $dateien) {next;}
        unless ($dateien=~ m/\.pl$/i) {
                rename($dateien,$ziel."\\".$dateien) || die "Dateien konnten nicht kopiert werden: $!\n";
        }#unless
} #foreach
closedir(DIRHANDLE1);

@txtliste=readdir(DIRHANDLE2);
unless(open(FH1,"> $ziel"."\\"."$DateiZumSchreiben")) {die "Datei '$DateiZumSchreiben' konnte nicht geoeffnet werden: $!";}
foreach my $dateien(@txtliste) {
        print $dateien;
        unless(open(FH2,$dateien)) {die "Datei '$dateien' konnte nicht geoeffnet werden 2: $!";}
        foreach my $line(<FH2>) {               #für jede Zeile in den kleinen txts
                chomp($line);                           #Abknüppern des \n
                print(FH1 "$line\n");           #Ausgabe in $DateiZumScheiben
                close(FH2);
        } #foreach
} #foreach
close(FH1);


#################################################################################################
Fehlermeldung:
C:\Dokumente und Einstellungen\stephan\Desktop\output>verarbeitung.pl
Datei '.' konnte nicht geoeffnet werden 2: Permission denied at C:\Dokumente und
Einstellungen\stephan\Desktop\output\verarbeitung.pl line 32.
################################################################################################
kurze Erklärung:
Programm verschiet alle .txt in einem Ordner in einen anderen Ordner und soll sie dort in einer Datei
zusammenfassen.