öffen ersetzen speichern

[Patrick Andrieu]

Hallo Herrman!

open (DAT, "<dat.txt");
while (<DAT>) {
if ($_ =~ m/Hallo/) {
open (WRITE, ">>dat.txt");
$_ =~ s/Hallo/Ciao/;
close WRITE;
}
close DAT;

Du gibst weder etwas aus, noch schreibst Du etwas in die Datei zurück.
Da muss ich Dir leider wieder einen Link hinknallen ;)
http://de.selfhtml.org/perl/funktionen/einausgabe.htm#open

Viele Grüße aus Frankfurt/Main,
Patrick