Perl facebook图表给出无法获取访问令牌：/usr/local/share/perl

发布时间：2020-12-16 06:12:56 所属栏目：大数据来源：网络整理

导读：我试图获取访问令牌,但得到错误 /usr/local/share/perl/5.10.1/Facebook/Graph/AccessToken/Response.pm第26行的错误请求以下是代码 use Facebook::Graph ; my $fb = Facebook::Graph-new( app_id = $facebook_app_id,secret = $facebook_app_secret,postba

我试图获取访问令牌,但得到错误

/usr/local/share/perl/5.10.1/Facebook/Graph/AccessToken/Response.pm第26行的错误请求

以下是代码

use Facebook::Graph                                     ;

 my $fb = Facebook::Graph->new(
     app_id          => $facebook_app_id,secret          => $facebook_app_secret,postback        => $postback_url,);

 my $uri = $fb
    ->authorize
    ->extend_permissions(qw(offline_access publish_stream))
    ->uri_as_string;

它成功地重定向到回发网址,我从get paramater获取代码

我的代码在回发网址/页面

use Facebook::Graph                                     ;

my $fb = Facebook::Graph->new(
     app_id          => $facebook_app_id,);

当我在做$fb-> request_access_token($code);

我收到错误,因为无法获取访问令牌：/usr/local/share/perl/5.10.1/Facebook/Graph/AccessToken/Response.pm第26行的错误请求

请帮忙
提前致谢.

解决方法

我使用您的第一个代码段使用我自己的应用程序生成代码.

手动获取代码后：

#!/usr/bin/perl
use strict;
use warnings;
my $facebook_app_id =     'MYAPP';
my $facebook_app_secret = 'SECRET'
my $postback_url =        'http://localhost:8321/';
my $code =                '...';

use Facebook::Graph;
use Data::Dumper;

my $fb = Facebook::Graph->new(
   app_id          => $facebook_app_id,);
print Dumper $fb->request_access_token($code);

这用’token’=>抛弃了预期的json repsonse. ‘… … tokenval’

我能够通过将回发修改为除创建代码时使用的任何值以外的任何值来重新创建您发布的错误.这包括添加或删除尾部斜杠.因此,请确保您的回发网址匹配！

Could not fetch access token: Bad Request at
/Users/andrew/perl5/lib/perl5/Facebook/Graph/AccessToken/Response.pm
line 26.

同样,如果你持有太久的$代码,它将会过期.然后你必须创建一个新的.您可以保存/缓存request_access_token返回的access_token.它们不会持续很长时间,但你可以通过最近的facebook api更改请求更长寿的.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!