Hat jemand Tipps zur Optimierung dieses (teil)scriptes?

[Christian Kruse]

Hi,

$benutzer = "irgendwas";

open(DATEI, "/.....adressen.txt") die $!;
@lst = grep(/$benutzer/,<DAT>);
close(DAT);

@neu = ();
foreach (@lst)
{
s/^((.+){4})([0-9]+)(.+)$/"$1".($3+1)."$4"/e;
push(@neu,$_);
}

open(DATEINEU, ">/......adressenneu.txt") die $!;
print DATEINEU @neu;
close(DATEINEU);

vielleicht so?

mfg
CK1

<img src="http://wwwtech.de/images/banner.jpg" alt="">
http://wwwtech.de/
http://wwwtech.de