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;@H_502_7@它成功地重定向到回发网址,我从get paramater获取代码 @H_502_7@我的代码在回发网址/页面 @H_502_7@
use Facebook::Graph ;my $fb = Facebook::Graph->new( app_ID => $facebook_app_ID,);@H_502_7@当我在做$fb-> request_access_token($code); @H_502_7@我收到错误,因为无法获取访问令牌:/usr/local/share/perl/5.10.1/Facebook/Graph/Accesstoken/Response.pm第26行的错误请求 @H_502_7@请帮忙
提前致谢.解决方法 我使用您的第一个代码段使用我自己的应用程序生成代码. @H_502_7@ @H_502_7@手动获取代码后: @H_502_7@
#!/usr/bin/perluse 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);@H_502_7@这用’token’=>抛弃了预期的Json repsonse. ‘… … tokenval’ @H_502_7@我能够通过将回发修改为除创建代码时使用的任何值以外的任何值来重新创建您发布的错误.这包括添加或删除尾部斜杠.因此,请确保您的回发网址匹配! @H_502_7@
@H_502_7@Could not fetch access token: Bad Request at@H_502_7@同样,如果你持有太久的$代码,它将会过期.然后你必须创建一个新的.您可以保存/缓存request_access_token返回的access_token.它们不会持续很长时间,但你可以通过最近的facebook API更改请求更长寿的. 总结
/Users/andrew/perl5/lib/perl5/Facebook/Graph/Accesstoken/Response.pm
line 26.
以上是内存溢出为你收集整理的Perl facebook图表给出无法获取访问令牌:/usr/local/share/perl/5.10.1/Facebook/Graph/AccessToken/Response.pm中的错误请求全部内容,希望文章能够帮你解决Perl facebook图表给出无法获取访问令牌:/usr/local/share/perl/5.10.1/Facebook/Graph/AccessToken/Response.pm中的错误请求所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)