Suchen und ersetzen in mehreren Dateien?

[Kess]

Hallo Jammer,

open(DATA, ">$Dateien") or die "Fehler!\n";
    while(<DATA>)
    {

»»  s/$Search/$Ad/g;
»»  print DATA $_;

}
    close(DATA);

Mit diesem Code öffnest Du Deine Dateien im Schreibmodus. Es erfolgt kein Einlesen der Datei. Die While Schleife wird also gar nicht ausgeführt. Somit schließt Du die Datei wieder, ohne etwas geschrieben zu haben.

Du mußt die Dateien erst einlesen, dann schließen und dann noch einmal für die Ausgabe öffnen. In einem Arbeitsvorgang geht das so nicht.

Gruß
Kess