in reply to Hash of Hashes of Hashes
#Open database dbmopen (%hitsdb,$db,0755) || print "can't dbmopen hitsb: $!"; $key = "$Year$Month$hour$referer"; if ($hitsdb{$page} && $hitsdb{$page}{$key}) { $hitsdb{$page}{$key}{'counter'}++; print "appended\n"; } else { ##################### # LINE 85 BELOW # ##################### $hitsdb{$page}{$key => { 'year' => $Year, 'month' => $Month, 'day' => $month_day, 'referer' => $referer, 'counter' => 1 }}; print "new instance\n"; } #Close database dbmclose (%hitsdb) || print "can't dbmclose hitsdb: $!";
|
|---|