Hat jemand Tipps zur Optimierung dieses (teil)scriptes?

[Klaus Mock]

Hallo,

Vielleicht streubt es ja die insider bei obigen code die Haare ;-)

Ganz so schlimm ist es nicht, denk ich.

Bis auf die wirklich unnötige Verwendung von $counter und dem pop/push auf @liste ist alles eigentlich nur Geschmacksfrage.
Ob es an der Performance grundlegend was ändert, weiß ich nicht, ein paar Quentchen vielleicht. Wenn Dein Script allerdings weit weg von der gewünschten Geschwindigkeit, dann ist der von Dir eingeschlagene Weg nochmals zu überdenken.

Solange aber die Menge nicht ins uferlose steigt, glaube ich bist Du noch im grünen Bereich.

Mir ist gerade noch aufgefallen, daß Du sowieso in eine neue Datei schreibst. Dann könntest Du alles gleich in einem Rutsch machen und auf das Array @listeneu verzichten:

open(IN,"adressen.txt") or die "nix lesen";
open(OUT,">adressenneu.txt") or die "nix schreiben";
while(<IN>)
  {
  chomp;
  my(@liste) = split('',$_);
  $liste[5]++ if $liste[2] eq $benutzer;
  print OUT join('',@liste),"\n";
  }
close(IN);
close(OUT);

Grüße
  Klaus