dev.twitter.com<\/a>\n<\/p>\n\n\u30e2\u30b8\u30e5\u30fc\u30eb\u3092CPAN\u304b\u3089\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u3088\u3046\u3002
\n<\/h2>\n
\n\u4ee5\u4e0b\u30b3\u30de\u30f3\u30c9\u3092\u6253\u3066\u3070\u5b8c\u4e86\u3002
\nCPAN\u4fbf\u5229\u3002\n<\/p>\n
[bash]
\nsudo cpan install Net::Twitter::Lite
\n[\/bash]<\/p>\n
\n\u3042\u3068\u306f\u3001\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u95a2\u6570\u3092\u53c2\u8003\u306b\u3057\u3066\u3001\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u4f5c\u6210\u3002
\n<\/h2>\n
\n\u30b9\u30af\u30ea\u30d7\u30c8\u306f\u4ee5\u4e0b\u306e\u3068\u304a\u308a\u3002\n<\/p>\n
[perl]
\n#!\/opt\/local\/bin\/perl<\/p>\n
use strict;
\nuse warnings;
\nuse Net::Twitter::Lite;<\/p>\n
my $Consumer_key="\uff0a\uff0a\uff0a\uff0a";
\nmy $Consumer_key_secret="\uff0a\uff0a\uff0a\uff0a";
\nmy $Access_token="\uff0a\uff0a\uff0a\uff0a";
\nmy $Access_token_secret="\uff0a\uff0a\uff0a\uff0a";<\/p>\n
my $Twe = Net::Twitter::Lite->new(
\n\tconsumer_key => $Consumer_key,
\n\tconsumer_secret => $Consumer_key_secret
\n);<\/p>\n
$Twe->access_token($Access_token);
\n$Twe->access_token_secret($Access_token_secret);<\/p>\n
my $message = "this is test post!";
\ntwitter_post($message);<\/p>\n
sub twitter_post{
\n\tmy $post = $_[0];
\n\teval{$Twe->update({status=>$post});};
\n\twarn "Failed to tweet: $@\\n" if ($@);
\n\t}<\/p>\n
[\/perl]<\/p>\n
\n\u65e5\u672c\u8a9e\u306e\u6587\u5b57\u5316\u3051\u7b49\u306e\u6539\u5584\u306f\u3053\u308c\u304b\u3089\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
twitterAPI\u306b\u898f\u5236\u304c\u304b\u304b\u3063\u3066\u3001\u8a71\u984c\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u304c\u3001 \u95a2\u4fc2\u306a\u304f\u3001perl\u88fd\u306etwitter\u306b\u3064\u3076\u3084\u304f\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u4f5c\u3063\u3066\u307f\u305f\u3002 \u3053\u308c\u3082\u3001\u4eca\u4f5c\u6210\u4e2d\u306e\u5199\u771f\u30b5\u30a4\u30c8\u306b\u7d44\u307f\u8fbc\u3080\u4e88\u5b9a\u3002 \u4ee5\u4e0b\u3001\u30b9\u30af\u30ea\u30d7\u30c8\u3002<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[19,20,6,7,25],"tags":[28],"class_list":["post-640","post","type-post","status-publish","format-standard","hentry","category-perl","category-20","category-6","category-7","category-25","tag-perl"],"_links":{"self":[{"href":"http:\/\/ts-engine.net\/index.php?rest_route=\/wp\/v2\/posts\/640","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/ts-engine.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/ts-engine.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/ts-engine.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/ts-engine.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=640"}],"version-history":[{"count":0,"href":"http:\/\/ts-engine.net\/index.php?rest_route=\/wp\/v2\/posts\/640\/revisions"}],"wp:attachment":[{"href":"http:\/\/ts-engine.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=640"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/ts-engine.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=640"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/ts-engine.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=640"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}