Я хочу опубликовать на странице с именем XY, и она должна отображаться на странице напрямую, а не как сообщение от другого пользователя (администратора). Это код, который я адаптировал изhttp://qscripts.blogspot.de/2011/02/post-to-your-own-facebook-account-from.html но это сообщения в области для других пользователей, а не на главной странице. Если я заменяю номер идентификатора страницы на «я», он отправляет сообщение на страницу администратора и правильно в основную область.

#!/usr/bin/perl -I/opt/ActivePerl-5.16/site/lib/

# http://qscripts.blogspot.de/2011/02/post-to-your-own-facebook-account-from.html

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

my $access_token = 'top secret';

graph_api('1484559088426611/feed', {
  access_token => $access_token,
  message      => 'Hello World! I’m posting Facebook updates from a script!',
  description  => 'You want to create a script to read messages and post status updates to your own '
                . 'Facebook account, but you find the official documentation confusing and '
                . 'you aren’t sure where to start. Search no more because here you’ll find '
                . 'the easiest way to do just this.',
  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;
}