パスワード認証がうまくできない
パスワード認証がうまくできません
----------------------HTMLのフォームの部分----------------------
<form action="http://localhost/cgi-bin/access.pl" method="get">
<td><Div Align="right">ユーザID:</Div></td><td><input type="text" name="ID" size="25"></></td>
</tr>
<tr>
<td>パスワード:</td><td><input type="password" name="PASS" vsize="25"></td>
</tr>
</table>
<input type="submit" value=" ログイン ">
----------------------Perlの認証の部分の内容--------------------
sub ninshou
{
my $Data=$ENV{'QUERY_STRING'};
my $CheckIDPASS;
my $CheckFinish=0;
open(IMPUT,"<","ID-PASS.txt");
while(<IMPUT>){
$CheckIDPASS=$_;
if($CheckIDPASS eq $Data){
$CheckFinish=1;
}
}
if($CheckFinish==1){
print "認証しました<br>\n";
}
else{
print"パスワードが正しくありません<br>";
}
------------------------ID-PASS.txtの内容----------------------
ID=TARO&PASS=0000
ID=JIRO&PASS=1111
ID=SABURO&PASS=2222
--------------各ソースここまで-----------------
HTMLのフォームにIDとPASSを入力して療法が正しければ先に進める
CGI(Perl)を作ってるんですが、なぜかID-PASS.txtの一番下に
記入しているID=SABURO&PASS=2222
ID SABURO
PASS 2222
以外で認証することができません。SABURO / 2222 と入力
したときのみうまく認証できます。
他のID/PASSで認証できないのはなぜでしょうか?
お礼
ありがとうございます!! さっそく参考に考えてみますm(_ _)m