我已经构建了一个当前在本地主机上运行的 CGI::Application 并使用了 2 种身份验证方法 -
1.通过将用户密码存储在数据库中来描述http://www.perlmonks.org/?node_id=622071
和
2. 使用 LDAP 凭据.
我一直在寻找一种简单的方法来进行谷歌身份验证，但还没有找到一种简单的方法。有人可以指出我正确的方向。
我查看了
1. Authen-GoogleAccount 和
2. net-Google-FederatedLogin
但其中任何一个都没有足够的文档。我从哪里开始？即使您有一些在 cgi::application 之外执行此操作的指针，也请告诉我
这是我能找到的最接近的解决方案。我不是安全专家，但我认为认真对待它的网站不会使用这种方法。它使用 WWW::Mechanize 使用谷歌电子邮件/密码进行身份验证，然后提取安全内容。
http://gregjessup.com/login-to-google-using-perl/
如果 $mech->get($url); 返回错误，认证失败。
这是我在 Android Market for Developers (market.android.com/publish) 中使用的代码：
use WWW::Mechanize;
use HTTP::Cookies;
my $url = 'https://www.google.com/accounts/ServiceLogin';
my $username = 'username@gmail.com';
my $password = "PASSWORD";
my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($url);
$mech->form_number(1);
$mech->field(Email => $username);
$mech->field(Passwd => $password);
$mech->click();
# Go to the next link, now that we are logged in.
$url = 'https://market.android.com/publish/Home';
$mech->get($url);
print $mech->content();
这是 Prateek 发布的链接的小编辑/清理：http: //gregjessup.com/login-to-google-using-perl。我认为它应该可以用于大多数需要您登录的 Google 服务。