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

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


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

@txtliste=readdir($dhandle1);
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($dhandle1);

#@txtliste=readdir($dhandle2);
@txtliste= grep{ $_ =~ /\.txt/  and -f $_ }             # test ob es .txt-Datei ist
		   map{ $ziel . '\\' . $_ }                     # Pfad zusammensetzen
	       readdir($dhandle2);							#auslesen

if( open my $out, '>', $ziel . '\\' . $DateiZumSchreiben ){
   for(my @files ){
      if( open my $in, '<', $_ ){
         while( my $line = <$in> ){
            chomp $line;
            print $out $line,"\n";
         }
      }
   }
}
else{
   die "Konnte Datei '$DateiZumSchreiben' nicht oeffnen: $!";
}

#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);