Nochmal Perl (aber dringend)

[Thomas Hieck]

open(DAT,"dat.dat");

open(DAT,"<dat.dat");

@dat = <DAT>;
close(DAT);

while(<DAT>){
      push(@dat,$_);
    }
    close(DAT);

for(@dat){

»»   ($nick, $pwd, $email, $hp) = split(/;/, $_);
»»   if($Formular{'nick'} eq $nick)

ich  weiss nicht , was $Formular{'nick'} bei dir bedeutet, aber du hast hoffentlich die Formulardaten richtig eingelesen?

»»     {
»»     print "<ul>\n<li>$email</li>\n<li>$hp</li>\n</ul>\n";
»»   }

}

Sonst ist mir jetzt erstmal nichts aufgefallen.