###############################################################################

###     PerlScript um *.txt Dateien zu einer zusammen zu f&¸hren             ###

###                         Script by: H. Appel                             ###

###     Datum: 19.08.2005                           Version 0.01            ###

###############################################################################



$aktverz    = $ARGV[0];     #aktuelles Verzeichnis

$ausgabedat = $ARGV[1];     #Ausgabe Datei



# Verzeichnis &ˆffnen und Dateien nacheinander einlesen



if (chdir $aktverz) {

    @alledateien = <*.txt>; #alle Textdateien im Verzeichnis ermitteln

    } 

else {

    print "Konnte das Verzeichnis nicht finden!\n";

     }



# Alle gefundenen Dateien &ˆffnen

open (OUT, ">>$ausgabedat") || die "Kann Datei nicht anlegen!"; # Ausgabe Datei erstallen



foreach $data (@alledateien) {

    open (IN, "$data") || die "kann die Dateien nicht &ˆfnnen"; #Dateien &ˆffnen

 foreach $hm (<IN>){   

    print OUT $hm;

    close (IN);

    }

}

close (OUT);