PerlでのMastdon toot - Perl memoマストドンでの自動トゥート作った。 Perlは、https通信ができるように、必要な対応はしておいてください。 【参考】 engineer-milione.com <<インスタンス>>は、利用しているインスタンスのURLを入れてください。 <<アクセストークン>>は、マストドンの「アカウント設定」「開発」でアプリを作成したら、設定されるので、それを入れてください。 なお、アプリには、アクセス権「write:statuses」を付与しておいてください。 ちなみに、インスタンスsocial.vivaldi.netは、LWP::UserAgentのUserAgentを拒否しているので、他のUserAgentを設定しました。 #/usr/bin/perl use utf8; use strict; #use warnings; use Encode qw(encode decode); use L
