Hallo,
in meinen Serverlogs sehe ich aktuell diese Zeile:
[Tue Apr 25 15:42:02.075089 2017] [cgi:error] [pid 5666] [client xxx.xxx.xxx] AH01215: [Tue Apr 25 15:42:02 2017] ... each on reference is experimental at ...
Die bemängelte Zeile enthält diesen Code:
while ( my($key, $value) = each (\%params)){ $ausgabe .= "$key: $value \n"; }
Das Programm an sich läuft trotz des "[cgi:error]". Nun weiß ich nicht, ob und wie ich an der Stelle eingreifen muss.
Komplett sieht der Code wie folgt aus:
sub SaveSuccess{
my $paramsInput = shift; # Übernahme eines Hash aus diesem Aufruf im Hauptprogramm "SaveSuccess(%params);"
my %params = %{$paramsInput}; # dereferenzieren
my $ausgabe;
while ( my($key, $value) = each (\%params)){ $ausgabe .= "$key: $value \n"; }
}
Vielen Dank
Andi
Last edited: 2017-04-25 16:51:38 +0200 (CEST)