Text in eine bestimmte Zeile einer Datei hinzufügen

[Sergej]

Hallo @ll,

Hier ist meine Lösung:
.
..
...
...Berechnung/Suche und schreibe Ergebnis in Datei $outFile
...
..
.
#*************************************************************
#*                Einfügen der 8 Zeile:                      *
#*************************************************************

open(FHOLD, "< $outFile")         or die "can't open $outFile: $!";
open(FHNEW, "> $outFile2")        or die "can't open $outFile2: $!";
while (<FHOLD>) {
    if ($. == 8) {    # Fügt in die 8 Zeile den untenstehenden Text
        print FHNEW "* $k Paare gefunden! *\n";
    }
    print FHNEW $_;
}

close(FHOLD);
close(FHNEW);
unlink($outFile);    # Löscht die alte Datei
rename($outFile2, $outFile)       or die "can't rename $outFile to $outFile2: $!";
#*************************************************************
#*                     ENDE SCRIPT                           *
#*************************************************************

Danke an alle,

Gruß Sergej