Perl

[Stefan Bach]

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
}

Ob das System, das du verwendest um die Richtigkeit zu prüfen, einen Fehler hat kann ich dir auf die Schnelle nicht sagen. Wenn dies allerdings dein orginal Quellcode ist, fehlt nach negativ ein ";". Dies könnte schon der ganze Fehler sein.

Gruß
  Stefan