perl - 페이스 북의 그래프 - Fanpage에 게시

이 오류는 나를 제공하지는 않지만, 아직 내 팬 페이지 벽에 게시하지 않습니다. 이 도움말에 도움이 될 것입니다! 혼자서 이것을 알아 내려고 노력하는 것은 롤러 코스터였습니다.perl - 페이스 북의 그래프 - Fanpage에 게시

올바른 토큰으로 테스트했습니다.

#!/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; 
}

출처

2013-04-24 Jeff Swenson

https://developers.facebook.com/tools/explorer를 방문하여 액세스 토큰 (위의 perl 스크립트에서 사용)을 액세스 토큰 필드에 바꿀 수 있습니다. 그런 다음 POST 요청을 선택하고 메시지 필드를 설정하고 POST를 200117706712975/feed로 설정하십시오. 이것은 토큰과 API가 정확히 작동한다는 것을 증명할 수 있습니다. 가능한 원인을 줄입니다. –

는 응답 오브젝트 덤프 경우 - $의 인공 호흡기 - 데이터 :: 덤퍼가 비슷합니다 사용하여, 당신은 포스트가 나타나지 않는 이유를 얻을 것이다. 응답 객체는 JSON입니다.

출처

2017-03-06 17:30:57

perl - 페이스 북의 그래프 - Fanpage에 게시

답변

관련 문제