problem mit aktualisierung einer logdatei

[Alain]

hi struppi,

open(LOG, "+>$loginlog") || die "cant open log\n";

Du kannst hier sinnvollerweise auch noch den Grund für ein Scheitern reinschreiben
open(LOG, "+>$loginlog") || die "cant open log ($!)\n";

print LOG "9*0*Jul 10 $username\n" || die "cant print\n";#hab ich nur zum testen

ok,daran liegts nicht.

my ($ag_last,$count_last,$date_last) = split(/\*/,$logins{$username});#mit logins gibts probleme

Was hat $logins{$username} für einen Wert?

muss im zusammenhang mit dem eintrag in der logdatei zusammenhängen,welcher so aussieht.
$ag_last*10*datum username
ich wüsste jetzt nicht wie ich das sonst in einem wert schreiben könnte als in split.
Der zusammenhang "useragent*counter*datum username" sollte jeweils mit dem usernamen sein um zu unterscheiden von anderen.
username ohne logins geht glaub ich nicht oder ich weiss nicht wie ich den zusammenhang als wert schreiben soll.

#if first time logging in today
if ($date_last ne $date_today)

Was hat $date_today für einen Wert?

my $date = date;
my $date_today = join( " ", (split(" ",$date)) [1,2] );
schreibt z.B. "Jul 10" in die log.

fehlermeldung des servers ist
Use of uninitialized value in string ne at test.cgi line...damit ist if ($date_old ne $date_today) gemeint.

Das heißt eine von beiden Variabeln ist undefiniert.

ja mit der variable hab ich ein problem.
Grüsse
Alain