Hat jemand Tipps zur Optimierung dieses (teil)scriptes?

[Klaus Mock]

Hallo,

@lst = grep(/$benutzer/,@zeilen);

[...]

push(@neu,grep(!/$benutzer/,@zeilen));

Zweimal die ganze Datei durchgreppen ist doch ziemlich aufwendig oder?
Außerdem, so wie Du es machst auch ziemlich gefährlich. Was ist, wenn $benutzer in anderen Zeilen irgendwoanders steht?

also, wenn schon, dann
@lst = grep(/(.+){2}$benutzer/,@zeilen);

oder?
Und dann nochmals eine ziemlich komplexe Regex zum Counter-Erhöhen.

Sieht zwar mächtig abgefahren aus, ob das eine Performancesteigerung bringt ist fraglich.

Nix für ungut
  Klaus