Fehler... aber wo?

[Bjoern]

ups. t'schuldigung. da war doch ein fehler in der korrektur.

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)

machst du hier besser:
  if($Daten[$i] =~ /^#0$/ && $satz == -1)
oder:
  if($Daten[$i] =~ /^#0$/ && $satz eq "-1")

{
   $satz = $i;
   $i+=2;
  }
  else
  {
   print DATEN "$Daten[$i]\n";

es könnte daran liegen. lieber:
  print DATEN $Daten[$i]."\n";

}
}

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

hier natürlich gleich.

}
}
close(DATEN);
}

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

naja. Andreas hat schon recht: die Fehlermeldung würde weiterhelfen.

gruss

bjoern