パスワード認証
#! /usr/local/bin/perl # パスワード設定 $PASSWORD = '1234'; # フォームデータ(パスワード)取り込み read(STDIN, $query, $ENV{'CONTENT_LENGTH'}); foreach $pair (split(/&/, $query)) { ($key, $value) = split(/=/, $pair); $FORM{$key} = $value; } print qq(Content-type: text/html; charset=Shift_JIS\n\n); print <<END; <html> <head> <title>パスワード認証</title> </head> <body> END # パスワードの確認 if($FORM{'pass'} eq $PASSWORD) { # パスワード一致の場合のHTML出力 print <<END; ようこそ!! END } else { # パスワード不一致のHTML出力 print <<END; <form action="$ENV{'SCRIPT_NAME'}" method="POST"> パスワードを入力してください。<br> <input type="password" name="pass" value="" size="5"> <input type="submit" value="送信"> </form> END } print <<END; </body> </html> END exit;
〔 実行する 〕