nicht angemeldet
Hallo,
vielen Dank fuer Eure Tipps! Haette ich nicht gedacht, dass Ihr Euch so reinkniet ;-)
Die Loesung von Klaus ist mir sympathisch (weil ich sie halt raffe)
{
chomp;
my(@liste) = split('',$_);
$liste[5]++ if $liste[2] eq $benutzer;
print OUT join('',@liste),"\n";
}
close(IN);
close(OUT);
Hatte ich mich zu ungenau ausgedrueckt?
liste[2] ist wirklich ein fixer Platz und kann auch "Stefan" oder "stef" enthalten.
eine regexp scheidet also aus. Klaus hat es richtig erkannt.
Der Wert kann aber nur einmal in der datei vorkommen, da es ein Benutzername ist.
Ausserdem schreibe ich die Daten wieder in die gleiche Datei zurueck (sorry, dass mit
neuer Datei war aus meinen Testlaeufen). Leider unterstuetzt der Server (t-mart) keine
system(), sodass ich keine temp.dat erstellen kann und die dann einfach rueberkopieren
kann. Ich muss also: oeffnen -lesen - schliessen -wiederoeffnen - schreiben-schliessen
Vielen Dank nochmal, werde mir jetzt mal das join "reinziehen" ;-)
Gruesse
pehao