Optimieren - #1006 (Perl/CGI) - Perl-Community.de

stb2050

2003-08-22 14:57

User since
2003-08-14
87 Artikel
BenutzerIn
[default_avatar]

Hi Ihr,

habe jetzt mal alles übernommen und hat wirklich etwas gebracht. Danke Euch.

Habe jetzt eine neue Fehlermeldung

Code (perl): (dl )

&#36anfrage = "SELECT passwort, userid FROM hpm_user WHERE username='&#36user';";
&datenbank;
if (&#36ergebnisse = &#36sth->fetchall_arrayref( { userid => 1, passwort => 1 } ))
{
   &#36pass2 = &#36ergebnisse->[-1]->{passwort}; #27
   &#36userid = &#36ergebnisse->[-1]->{userid};
}
else
{
   &#36message = "Der von Ihnen eingegebene Benutzername ist nicht vorhanden.";
   &error_back;
}

Wenn hier ein Benutzer einen "$user" angibt, von dem es in der Tabelle hpm_user keine Zeile gibt, also der nicht existiert, dann bekomme ich folgende Fehlermeldung:

Quote
Modification of non-creatable array value attempted, subscript -1 at /homepages/46/d75401864/htdocs/web293/cgi-bin/login/login.cgi line 27.

Wenn es den Benutzer gibt, ist alles okay. Wo liegt hier denn das Problem?

Viele Grüße
Steffen\n\n