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

Question

我正在尝试使用 Net::Google::Spreadsheets 读取（以后甚至写入）Google 电子表格。

大多数样板脚本因“登录失败”而死，并且没有错误：

use Net::Google::Spreadsheets;

my $service = Net::Google::Spreadsheets->new(
  username => 'myusername@googlemail.com',
  password => 'mypassword'
);

我得到的只是

Net::Google::AuthSub login failed

可悲的是，我不知道如何诊断或解决此问题。任何人？

非常感谢！

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。如果这样做，您将无法确定与预期的对等点进行通信。