perl - 如何为基本的 http 身份验证设置用户名和密码？

Question

我有一个 perl 程序并从 cgi 中使用它。我将下面的行附加到代码中

use CGI qw(:cgi);
print header(-type => 'text/html', -status => '401 Not Authorized',
         'WWW-Authenticate' => 'Basic realm="Videos"');

当我输入 url 时，浏览器需要我的用户名和密码。问题是我不知道什么是用户名和密码，我应该在哪里分配它们。另外，任何提供基本身份验证的机制的帮助都会很好。谁能帮我这个？谢谢。

Answer 1

通常网络服务器会处理基本身份验证，然后它可能还会处理未授权请求的返回 401 - 因此您的代码 ID 可能毫无意义。

如果您真的想自己尝试，您还必须解析浏览器在用户尝试验证时发送的 header ，使用您喜欢的任何方法验证信息，如果成功则返回可用页面。