$xNeTworKx: Daten per Referenz ändern ?

Beitrag lesen

Hi,
folgendes Problem : Ich habe eine Zähler, der mir am Anfang der Seite die gezählten Daten insgesamt ausgeben soll. Die Daten werden erst "weiter unten" eingelesen, also will ich per Zeiger den oberen Zähler ändern, nur bekomme ich immer folgende Fehlermeldung wenn ich es wie folgt mache :

Software error:

Can't use string ("0") as a SCALAR ref while "strict refs" in use at c:\apache\ACID4U~1\de\STATIS~1\index.cgi line 48, <FILE> line 1.

------------------------
my $visits_thismonth = 0;
.
.
.
.
print "<th><td class="statistikmiddle">gezählte Besuche des aktuellen Monats " . $visits_thismonth . "</td></th>\n";
.
.
.
.
.
opendir(DIR,"../../cgi/statistik/$year/$mon") or die "Cant open ../../cgi/statistik/$year/$mon : $!\n";
while (defined($_ = readdir DIR))   {
     if ($_ =~ /^\d\d?.txt$/)   {
     open(FILE,"../../cgi/statistik/$year/$mon/$_") or die "Cant open $_ : $!\n";
      chomp(my $input = <FILE>);
      $$visits_thismonth += $input; #HIER DIE REFERENZ
      my $shown_date = substr($_, 0, length($_) - 3);
      print '<tr><td class="statistikright">' . sprintf("%2d", $shown_date) . ".$mon :</td><td>$input</td></tr>\n";
      close FILE;
     }
}
closedir DIR;

Bei Subroutinen gehe ich immer so vor, und es klappt auch, aber warum hier nicht, verstehe ich nicht ganz ?

$xNeTworKx.