使用Net :: Google :: Spreadsheets在Google Spreadsheet 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来解决此问题   envirionment变量或安装Mozilla :: CA模块。

     

要禁用验证SSL对等设置   PERL_LWP_SSL_VERIFY_HOSTNAME环境变量为0.如果你这样做   这样你就不能确定你是否与预期的同伴沟通。