nicht angemeldet
Hallo!
Ich habe eine Frage zu Perl:
Ich will eine Account-basierte Passwort-Abfrage machen.
Also dass Name und Passwort in einer dat-Datei
mit dem Trennungszeichen ; gespeiechert werden.
Z.B. Inhalt der Datei:
Nico;cool
Das Erste ist der Username, das zweite das dazugehörige Passwort und das in mehrfacher Ausführung, also:
Nico;cool
Hans;Franz
Nix;nix
Wie kann ich in einem Perl-Script es so anstellen, dass über ein Formular das Passwort und der Username verlangt werden, abgeschickt werden, an den Script übergeben werden und dann aus der Dat-Datei der Account gecheckt wird und das dazugehörige Passwort. Und Wenn beides richtig ist, dass dann eine positive Meldung kommt, in Form eines print-Befehls also, und wenn eines von beiden oder beide nicht stimmen, dass dann eine Fehlermeldung kommt?
Ich habe es schon mit folgendem versucht, aber keinen Erfolg gehabt:
open(DAT,"<dat.dat");
@dat = <DAT>;
close(DAT);
foreach $element (@dat)
{
($name, $pwd) = split(/;/, $element);
}
if(eingegebener Wert eq $name && eingegebener wert eq $pwd)
{
posititv;
}
else{
negativ
}
Wer kann mich verbessern oder mir sagen, wie es richtig ist?