Dringend: Simples Perl-Script funktionniert nicht

[Chris Weber]

Hallo,

ich habe gerade versucht mit dem Script:

open FILE, "<datei.txt";
@liste = <FILE>;
close FILE;
for (@liste)
{
  if (!/besser/) { push @neueliste; }
}
open FILE, ">datei.txt";
for (@neueliste)
{
  print FILE "$_\n";
}
close FILE;

eine bestimmte Zeile aus der Datei datei.txt zu loeschen, aber nach dem Aufruf des Scripts ist die Datei leer.  Wie kann das sein.  Sollte nicht die Zeile, die das Wort besser enthält geloescht sein ?

Danke

[Stefan Muenz]

Hallo Chris

aber nach dem Aufruf des Scripts ist die Datei leer.  Wie kann das sein.  Sollte nicht die Zeile, die das Wort besser enthält geloescht sein ?

Du musst ihm schon sagen, was er pushen soll. also:
if (!/besser/) { push(@neueliste,$_); }

Sonst bleibt die Liste leer und die Datei natuerlich auch.

viele Gruesse
  Stefan Muenz