while ( my($key, $value) = each (\%params)){ $ausgabe .= "$key: $value \n"; }
1
2
3
4
5
6
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"; }
}
while ( my($key, $value) = each (\%params)){ $ausgabe .= "$key: $value \n"; }
Guest Andi123Das liegt meines Wissens daran, dass es keinen fatalen Fehler wirft sondern nur eine Warnung, wenn man solche experimentellen Features benutzt.Das Programm an sich läuft trotz des "[cgi:error]".