使用 perl cgi-application 进行 Google 身份验证

Question

我已经构建了一个当前在本地主机上运行的 CGI::Application 并使用了 2 种身份验证方法 -
1. 在 http://www.perlmonks.org/?node_id=622071 中通过存储进行描述数据库中的用户密码和
2. 使用 LDAP 凭据。

我一直在寻找一种简单的方法来进行谷歌身份验证，但尚未找到一种简单的方法。有人能指出我正确的方向吗？

我看了
1. Authen-GoogleAccount 和
2. net-Google-FederatedLogin

但没有足够的文档来说明其中任何一个。我从哪里开始？即使您有一些在 cgi::application 之外执行此操作的指示，也请告诉我

Answer 1

这是我能找到的最接近的解决方案。我不是安全专家，但我不认为认真对待它的网站会使用这种方法。它使用 WWW::Mechanize 使用 google 电子邮件/密码进行身份验证，然后提取安全内容。

http://gregjessup.com/login-to-google-using-perl/

if $mech->get($url);返回错误，认证失败。

Answer 2

以下是我在 Android 开发者市场 (market.android.com/publish) 中使用的代码：

use WWW::Mechanize;
use HTTP::Cookies;

my $url = 'https://www.google.com/accounts/ServiceLogin';
my $username = '[email protected]';                                                          
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 服务。