Hat jemand Tipps zur Optimierung dieses (teil)scriptes?

[Klaus Mock]

Hallo,

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

oder?

Wozu das?
grep(/$benutzer/,@zeilen)
durchsucht die gesamte Zeile nach einem String.
$string =~ /bla/;
durchsucht doch auch den gesamten String nach dem Pattern (in dem Fall "bla").

Das ist ja das Problem.
Zeile1:StefanMünzStefan....
Zeile2:StefanHuberstef....

Die Zeile darf nur gefunden werden, wenn nach dem zweiten und vor dem dritten $benutzer drin steht.

grep(/Stefan/,@zeilen);
würde aber beide Zeilen finden, was jedoch nicht richtig ist.

Grüße
  Klaus