facebook - perl - Facebook 图表 - 发布到粉丝专页

Question

这并没有给我任何错误，但它没有发布到我的粉丝专页墙上。会喜欢这方面的帮助！试图自己解决这个问题就像坐过山车一样。

当然是用正确的令牌测试的。

#!/usr/bin/perl

use strict;
use warnings;
use open qw(:std :utf8);
use LWP::Simple;
use YAML::Tiny;
use JSON;
use URI;
use utf8;

my $access_token = 'blah';
my $profile_id = '200117706712975';

#Publish to a facebook page as admin
graph_api('/' . $profile_id . '/feed',{
        access_token => $access_token,
        message => 'this is a test!',
        link => 'http://test.com',
        method => 'post'
});

exit 0;

sub graph_api {
  my $uri = new URI('https://graph.facebook.com/' . shift);
  $uri->query_form(shift);
  my $resp = get("$uri");
  return defined $resp ? decode_json($resp) : undef;
}

Answer 1

如果你转储响应对象 - $resp - 使用 Data::Dumper 类似，你会得到帖子没有出现的原因。响应对象是 JSON。