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