# 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.