if(-f "$data_path/ID.txt"){ open(ID,"$data_path/ID.txt"); @ID = ; close(ID); foreach $ID(@ID){ chomp($ID); $ID =~ s/[\n|\r]//g;; $IDOK = "NEIN"; if($FORM{'ID'} eq $ID){ $IDOK = "JA"; last; } } if($IDOK ne "JA"){ &Show_Error('Your ID is not correct.
Ihre ID ist nicht richtig.'); } }