Fehler... aber wo?

[AndreasW]

hallo zusammen

Tach,

ich habe da so ein skript geschrieben... leider kam heraus, das folgende Phrase nicht ganz korrekt ist.

if($uebergeben[1] =~ /^movetoend$/)
{
open(DATEN,"aufgaben.txt");
@Daten = <DATEN>;
close(DATEN);
chomp(@Daten);

open(DATEN,">aufgaben.txt");

$satz = -1;
for($i = 0; $i < @Daten; $i++)
{
  if($Daten[$i] =~ /^#0$/ && $satz = -1)
  {
   $satz = $i;
   $i+=2;
  }
  else
  {
   print DATEN "$Daten[$i]\n";
  }
}

if($satz != -1)
{
  for($z=$satz;$z<$satz+3;$z++)
  {
   print DATEN "$Daten[$z]\n";
  }
}
close(DATEN);
}

weiss jemand warum? finde es nicht, oder ich seh den wald vor lauter bäumen nicht mehr ...

Nein, wie sollen wir wissen, was nicht korrekt ist, wenn Du uns nicht sagst, was das script überhaupt tun soll?
Oder gibt es irgendwelche Fehlermeldungen?
Offensichtlich nicht, denn Du hast keine erwähnt.

Andreas