使用Net::Google::Spreadsheets登录Google电子表格API失败

Question

英译中：

我正在尝试使用 Net::Google::Spreadsheets 读取（之后可能甚至写入）Google Spreadsheet。

最基本的脚本因为“登录失败”而死亡，没有错误：

use Net::Google::Spreadsheets;

my $service = Net::Google::Spreadsheets->new(
  username => '[e-mail]',
  password => 'mypassword'
);

我所得到的只有

Net::Google::AuthSub login failed

遗憾的是，我不知道如何诊断或解决这个问题。有人知道吗？

非常感谢！

- msallge

Answer 1

可能是由于SSL证书检查引起的。您可以通过以下方式跳过测试：

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;

虽然真正的做法是根据Net::Google::AuthSub模块返回的信息正确设置证书颁发机构:

不知道信任哪些证书颁发机构就无法验证SSL同行

可以通过设置PERL_LWP_SSL_CA_FILE环境变量或安装Mozilla::CA模块来解决此问题。

要禁用SSL同行验证，请将PERL_LWP_SSL_VERIFY_HOSTNAME环境变量设置为0。这样做，您就无法确保与预期的同行通信。

- gorlif