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

Perl 使用Net::Google::Spreadsheets登录Google电子表格API失败,perl,google-spreadsheet-api,Perl,Google Spreadsheet Api,我正试图用Net::Google::Spreadsheets在Google电子表格中读出(稍后可能甚至写入) 大多数样板脚本在“登录失败”且无错误时终止: use Net::Google::Spreadsheets; my $service = Net::Google::Spreadsheets->new( username => 'myusername@googlemail.com', password => 'mypassword' ); 我得到的只是 Net:

我正试图用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
遗憾的是,我不知道如何诊断或解决这个问题。有人吗


非常感谢

可能是因为SSL证书检查。您可以使用以下选项跳过测试:

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
尽管您确实应该正确设置证书颁发机构,但根据Net::Google::AuthSub模块返回的消息:

在不知道哪个证书颁发机构的情况下无法验证SSL对等方 信任

这个问题可以通过设置PERL\u LWP\u SSL\u CA\u文件来解决 Environment变量或安装Mozilla::CA模块

要禁用SSL对等验证,请设置 PERL\u LWP\u SSL\u验证\u主机名环境变量为0。如果你这样做 这意味着您无法确定是否与预期的对等方进行了通信