Hat jemand Tipps zur Optimierung dieses (teil)scriptes?

[AlexBausW]

Hallo me,

print OUT map { s/^((?:.*?){2}$nutzer.*?)(\d*?)$/$1.($2 + 1)/e; $_; } <IN>;

Da hat sich doch ein kleiner Bug eingeschlichen, den Du aber sicherlich bald entdeckt hättest. Dein @liste besteht ja aus sechs Elementen. Also muß die obige Zeile korrekt lauten:

print OUT map { s/^((?:.*?){2}$nutzer(?:.*?){2})(\d*?)$/$1.($2 + 1)/e; $_; } <IN>;

Die Fragezeichen hinter * kannst Du imho auch weglassen, da afaik Perl die an den vorgegebenen Stellen matchen wird (Versuch, immer einen Treffer zu finden, hat imho Vorrang vor der Gierigkeit von *).

Gruß AlexBausW

Please visit my SELFvisitingcard @ http://www.atomic-eggs.com/selfspezial/daten/150.html