[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
ただいまコメントを受けつけておりません。
以下で取得そのものは上手くいった。このままえいっとさくらインターネットのレンタルサーバに CGI として置いても動く。なお、チャネルの ID は 111111111111111111、取得の為に使う Bot のトークンは BOTTOKENBOTTOKENBOTTOKENBOTTOKENBOTTOKENBOTTOKEN とする。
下のコードは恐らくチャンネル ID、Bot トークン、UserAgent のサービス URL を換えれば動く。
#!/usr/bin/perl use LWP::UserAgent; my $browser = LWP::UserAgent->new; my $response = $browser->get( "https://discordapp.com/api/channels/111111111111111111/messages", "Authorization" => "Bot BOTTOKENBOTTOKENBOTTOKENBOTTOKENBOTTOKENBOTTOKEN", "User-Agent" => "DiscordBot (YOUR_SERVICE_URL, 6)" ); print "Status: 200 OK\n"; print "Content-Type: text/json\n\n"; print $response->decoded_content; exit;
いくつか見落としやすい点。まず、Authorization は Token の前に Bot という文字列が必要。詳しくは公式ドキュメント。
また、User-Agent の設定も必要。これも詳しくは公式ドキュメント。
ただいまコメントを受けつけておりません。