パスワード認証がうまくできない

質問

パスワード認証がうまくできません
----------------------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で認証できないのはなぜでしょうか？

回答No.1

osamuy · ベストアンサー

chompしてないみたいなので、改行コードが入っているのでは。
で、最後だけ入ってないとか。

$CheckIDPASSをデバッグ出力してみては。

お礼

＞chompしてないみたいなので、改行コードが入っているのでは。
　で、最後だけ入ってないとか。

まさにそのとおりでした・・・・・Perlの基本を忘れてました。
Ｃ言語クセが出ていましたね・・・
ありがとうございました。