CGI Perlでの認証について
CGIにてログイン認証の処理を使用してみたく勉強がてら
Perlにて作成しているのですが、どうもうまくいかない
ので質問させてもらいます。
ID・パスワード保存用ファイルfile.datにあらかじめ
100<>p34z7
500<>332bdz
といった感じで入力してまして、
ログインボタンを押したときに
&login_chk($post{'id'},$post{'pwd'});
（URIデコード処理して$post{'id'},$post{'pwd'}を取得します）
を実行して下記サブルーチンを呼び出します。
sub login_chk {
my ($in_id, $in_pass) = @_;
my ($id, $pass);
my $data;
if (!open (IN, "./file.dat")) {
&Error("ファイルが開けません");
}
while ($data = <IN>) {
($id, $pass) = split(/<>/, $data);
if ($in_id eq $id){ last; }
}
close(IN);
unless ($in_pass eq $pass) {
&Error("正しいID・パスワードを入力してください");
}
}
※現状ファイルロックの処理はしてません。
パスワードの暗号化もしてません。
で、IDに100、パスワードにp34z7と入力してログインしようとするのですが
「正しいID・パスワードを入力してください」とエラーが出てきます。
当然500のときも同じくエラーでした。
どこが問題なのでしょうか？昨日から考えてずっとわからないのでご回答よろしくお願いします。
