Опубликовать на стене пользователя Facebook с curl PERL

Question

Я храню идентификаторы пользователей и маркеры доступа в Facebook. Могу ли я опубликовать на стене выбранного пользователя эту информацию? Следующий код находится по адресу Справочник разработчика Facebook.

Я просто не уверен, как запустить его с Perl .

curl -F 'access_token=$accessToken' \
     -F 'message=Check out this funny article' \
     -F 'link=http://www.example.com/article.html' \
     https://graph.facebook.com/$facebookid/feed

или этот код:

curl -F 'access_token=$accessToken' \
     -F 'photo=http://samples.ogp.me/$appID' \
        'https://graph.facebook.com/me/$appNameSpace:$objectType'

Answer 1

Почему бы не использовать модуль Facebook :: Graph , чтобы делать то, что вам нужно? Это богатая оболочка для API Facebook.

Answer 2

Вам необходимо выполнить HTTP-запрос POST с этими данными формы, см. Метод post в LWP :: UserAgent .