Script löscht zuviel

[Cheatah]

Hi,

ich vermute mal es ist in etwa so:

foreach $main_line (@main) {  
  if ($main_line =~ /<!--$mark--(.*)-->/) {
     $count=$1+1;
     $temp=2;
     print MAIN "<!--$mark--$count-->$count\n";
  } else { print MAIN $main_line; }
}

Ändere den Bereich folgendermaßen:
foreach $main_line (@main) {  
  if ($main_line =~ /<!--$mark--(.*)-->/) {
    $eins = $1; # wofür siehst Du gleich
    $count=$1+1;
    $temp=2;
    $main_line =~ s/<!--$mark--$eins-->$eins/<!--$mark--$count-->$count/;
  }
  print MAIN $main_line;
}

Es gibt nun nur noch eine Print-Zeile, weil die Daten bei Bedarf nur geändert werden, nicht komplett durch einen anderen Inhalt ersetzt.

Hope it helps,

Cheatah