パスワード認証
#! /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=UTF-8\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;
〔 実行する 〕