Patrick Andrieu: öffen ersetzen speichern

Beitrag lesen

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

--

_ - jenseits vom delirium - _
[link:hatehtehpehdoppelpunktslashslashwehwehwehpunktatomicminuseggspunktcomslash]
Nichts ist unmöglich? Doch!
Heute schon gegökt?
All'alba vincerò!