Text innerhalb einer Datei verschieben

Mein Problem ist folgendes:

Aus 2 verschiedenen Textdateien wird eine Datei zusammengestellt.

Der Text der 2. Datei wird dabei natürlich an die erste Datei angehängt.

Der Eintrag der letzten Zeile der neuen Datei muss nun in die 8. Zeile verschoben werden (also nach der 7. Zeile eingefügt) und die restlichen Zeilen sollen dabei nicht überschrieben werden.

Das Problem ist das die Länge der Dateien und der Dateiname nicht bekannt sind, lediglich die Dateierweiterung bleibt konstant.


Der Batch soll außerdem in einem anderen Verzeichnis aufgeführt werden, als dem Verzeichnis in dem die Dateien liegen.

Wie kann man dieses Problem lösen?

edlin würde zwar eine Reihe von geeigneten Befehlen anbieten, allerdings kann ich diese irgendwie nicht über eine Batch - Routine laufen lassen und miteinander verknüpfen.

#!C:/perl/bin/perl -w

use strict;

## die 2 dateien öffnen
open DATEI1, "<Pfad zu Datei eins" || die "$!";  
open DATEI2, "<Pfad zu Datei zwei" || die "$!";  

## in 2 arrays übergeben
my @array1 = <DATEI1>;
my @array2 = <DATEI2>;

## leere zeilen entfernen
chomp(@array1);
chomp(@array2);

## die 2 alten dateien schliessen
close(DATEI1);
close(DATEI1);

## neue datei aus den 2 alten
my @neueDatei = (@array1, @array2);

## letzte zeile entfernen
my $letzte_zeile = pop(@neueDatei);

## an 7er stelle hinzufügen
splice(@neueDatei,7,0,$letzte_zeile);

## neue datei schreiben
open NEUEDATEI, ">Pfad zur neuen Datei" || die "$!";  
foreach (@neueDatei) {
  print NEUEDATEI $_ , "\n";  
  }
close(NEUEDATEI);