{"id":4931,"date":"2007-04-22T23:38:01","date_gmt":"2007-04-22T14:38:01","guid":{"rendered":"https:\/\/polaire.org\/r-top\/2007\/04\/twitterperl.html"},"modified":"2007-04-22T23:38:01","modified_gmt":"2007-04-22T14:38:01","slug":"twitterperl","status":"publish","type":"post","link":"https:\/\/polaire.org\/r-top\/2007\/04\/twitterperl.html","title":{"rendered":"\u30e1\u30fc\u30eb\u3067Twitter\u306b\u6295\u7a3f\u3059\u308bPerl\u30b9\u30af\u30ea\u30d7\u30c8"},"content":{"rendered":"

\n\u305b\u308f\u3057\u306a\u304b\u3063\u305f\u4eca\u9031\u672b\u3067\u3057\u305f\u3051\u3069\u3001\u571f\u66dc\u65e5\u306f\u4e45\u3057\u3076\u308a\u306b\u8da3\u5473\u306e\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u304c\u3067\u304d\u3066\u697d\u3057\u304b\u3063\u305f\u3067\u3059\u3002
\n\u4e88\u544a\u3069\u304a\u308a<\/a>\u3001\u30e1\u30fc\u30eb\u3067Twitter\u306b\u6295\u7a3f\u3059\u308bPerl\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u4f5c\u3063\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

<\/p>\n

\n
\n#!\/usr\/bin\/perl\n#\n# twmail.pl : Update Twitter via mail\n#\nuse strict;\nuse Encode qw\/from_to\/;\nuse LWP::UserAgent;\nuse URI::Escape;\nuse MIME::Parser;\nuse Net::SMTP;\nmy $user = \"your username\";\nmy $pass = \"your password\";\nmy $mail_server = \"your mail server\";\nmy $uri = \"http:\/\/twitter.com\/statuses\/update.json\";\nmy $agent = \"twmail\/0.1\";\nmy $truncate = 0;\n# \u30e1\u30fc\u30eb\u3092\u89e3\u6790\nmy $parser = new MIME::Parser;\n$parser->output_to_core(1);\nmy $entity = $parser->parse( \\*STDIN );\nmy ( $from, $charset, $message ) = &parse_mail( $entity );\n# \u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u51e6\u7406\n$message = &encode_message( $message, $charset, $truncate );\n# \u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u6295\u3052\u308b\nmy $status = &submit( $user, $pass, $message, $uri, $agent );\n# \u5931\u6557\u3057\u305f\u3089\u30e1\u30fc\u30eb\u3067\u77e5\u3089\u305b\u308b\n&report_failure( $from, $mail_server, $status, $agent ) if ( $status );\n###\nsub parse_mail {\nmy $ent = shift;\nmy $head = $ent->head;\nmy $body = $ent->bodyhandle;\nmy $from = $head->get( 'From' );\nif ( $from =~ \/\/ ) { $from = $1; }\nreturn ( $from, $head->mime_attr( 'Content-Type.charset' ),\n$body->as_string\n);\n}\nsub encode_message {\nmy ( $mes, $char, $t ) = @_;\n$mes =~ s\/\\s\/ \/g;\nfrom_to( $mes, $char, 'utf8' );\nif ( $t ) {\nif ( length( $mes ) > 140 ) {\n$mes = substr( $mes, 0, 139 );\n}\n}\nreturn uri_escape( $mes );\n}\nsub submit {\nmy ( $user, $pass, $mes, $url, $agent ) = @_;\nmy $req = HTTP::Request->new( POST => $uri );\n$req->authorization_basic( $user, $pass );\n$req->content( \"status=\" . $mes );\nmy $ua = LWP::UserAgent->new( agent => $agent, keepalive => 4 );\nmy $res = $ua->request( $req );\nmy $status = $res->status_line;\nif ( $res->is_success ) { return 0; }\nelse { return $status; }\n}\nsub report_failure {\nmy ( $addr, $server, $status, $agent ) = @_;\nmy $smtp = Net::SMTP->new( $server );\n$smtp->mail( $agent );\n$smtp->to( $addr );\n$smtp->data();\n$smtp->datasend( \"From: $agent\\n\" );\n$smtp->datasend( \"To: $addr\\n\" );\n$smtp->datasend( \"Subject: twitter submit failed\\n\" );\n$smtp->datasend( \"\\n\" );\n$smtp->datasend( $status );\n$smtp->dataend();\n$smtp->quit;\n}<\/pre>\n<\/blockquote>\n
\u6a19\u6e96\u5165\u529b\u304b\u3089\u30e1\u30fc\u30eb\u3092\u8aad\u307f\u8fbc\u3080\u3088\u3046\u306b\u3001\u3053\u308c\u3092 .qmail \u306a\u308a .forward \u306a\u308a\u306b\u4ed5\u8fbc\u3081\u3070OK\u3002
\n.qmail\u3067\u3042\u308c\u3070<\/p>\n
| preline \/path\/to\/twmail.pl<\/p><\/blockquote>\n
\u306a\u3069\u3068\u3057\u3066\u304a\u304d\u307e\u3059\u3002<\/p>\n
\u3053\u308c\u3092\u4f5c\u308b\u306b\u5f53\u305f\u3063\u3066\u3001404 Blog Not Found<\/a>\u3055\u3093\u306e\u8a18\u4e8b\u3092\u53c2\u8003\u306b\u3055\u305b\u3066\u9802\u304d\u307e\u3057\u305f\u3002\u3053\u306e\u5834\u3092\u501f\u308a\u3066\u304a\u793c\u7533\u3057\u4e0a\u3052\u307e\u3059\u3002
\n\u3068\u3044\u3046\u304b\u3001\u3084\u3063\u3066\u308b\u3053\u3068\u306f\u307b\u3068\u3093\u3069\u540c\u3058\u306a\u3093\u3067\u3059\u3088\u306d\uff08\u82e6\u7b11\uff09
\n\u308f\u3056\u308f\u3056\u8eca\u8f2a\u306e\u518d\u767a\u660e\u3092\u3057\u305f\u306e\u306f\u3001<\/p>\n
\u30fbTwitter\u306eAPI\u306b\u89e6\u308b\u7df4\u7fd2
\n\u30fb\u30db\u30fc\u30e0\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u306b\u4ed5\u8fbc\u3080\u30d5\u30a1\u30a4\u30eb\u3092\u3072\u3068\u3064\u3060\u3051\u306b\u3057\u305f\u304b\u3063\u305f
\n\u30fb\u3046\u3061\u306e\u74b0\u5883\u306bYAML\u3068\u304bJSON\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u304c\u5165\u3063\u3066\u306a\u304b\u3063\u305f\uff08\u3092\u3044\uff09<\/p>\n
\u3068\u3044\u3046\u3001\u304d\u308f\u3081\u3066\u500b\u4eba\u7684\u306a\u7406\u7531\u304b\u3089\u3002
\n\u3042\u3068\u3001\u30e1\u30fc\u30eb\u306e\u89e3\u6790\u3092MIME::Parser\u306b\u4efb\u305b\u3066\u307f\u305f\u304b\u3063\u305f\u3001\u3068\u3044\u3046\u306e\u3082\u3042\u308b\u304b\u3082\u3002
\n\u643a\u5e2f\u304b\u3089\u30e1\u30fc\u30eb\u3067\u3072\u3068\u8a00\u6295\u7a3f\u3059\u308b\u3068\u3044\u3046\u30b9\u30bf\u30a4\u30eb\u3092\u4eee\u5b9a\u3057\u3066\u3044\u308b\u306e\u3067\u3001\u89e3\u6790\u306e\u3057\u304b\u305f\u306f\u304b\u306a\u308a\u624b\u629c\u304d\u3067\u3059\u304c\u2026\u2026\u3002<\/p>\n
\u643a\u5e2f\u304b\u3089\u6295\u7a3f\u3059\u308b\u3060\u3051\u3067\u3088\u3051\u308c\u3070\u3001Web\u30a4\u30f3\u30bf\u30fc\u30d5\u30a7\u30a4\u30b9\u306b\u30a2\u30af\u30bb\u30b9\u3059\u308b\u3088\u308a\u30e1\u30fc\u30eb\u3067\u6295\u3052\u305f\u65b9\u304c\u624b\u8efd\u3067\u3044\u3044\u3067\u3059\u306d\u3002\u30d1\u30b1\u4ee3\u3082\u5c11\u306a\u304f\u3066\u6e08\u307f\u307e\u3059\u3057\uff08\u7b11\uff09\u3001\u601d\u3044\u3064\u3044\u305f\u3068\u304d\u306b\u30b5\u30c3\u3068\u6295\u7a3f\u3067\u304d\u308b\u306e\u306f\u306a\u304b\u306a\u304b\u4fbf\u5229\u3060\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u305b\u308f\u3057\u306a\u304b\u3063\u305f\u4eca\u9031\u672b\u3067\u3057\u305f\u3051\u3069\u3001\u571f\u66dc\u65e5\u306f\u4e45\u3057\u3076\u308a\u306b\u8da3\u5473\u306e\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u304c\u3067\u304d\u3066\u697d\u3057\u304b\u3063\u305f\u3067\u3059\u3002 \u4e88\u544a\u3069\u304a\u308a\u3001\u30e1\u30fc\u30eb\u3067Twitter\u306b\u6295\u7a3f\u3059\u308bPerl\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u4f5c\u3063\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2],"tags":[],"class_list":["post-4931","post","type-post","status-publish","format-standard","hentry","category-2"],"yoast_head":"\n\u30e1\u30fc\u30eb\u3067Twitter\u306b\u6295\u7a3f\u3059\u308bPerl\u30b9\u30af\u30ea\u30d7\u30c8 - \u306e\u3081\u3057\u3053\u304d\u306e\u65e5\u3005<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/polaire.org\/r-top\/2007\/04\/twitterperl.html\" \/>\n<meta property=\"og:locale\" content=\"ja_JP\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"\u30e1\u30fc\u30eb\u3067Twitter\u306b\u6295\u7a3f\u3059\u308bPerl\u30b9\u30af\u30ea\u30d7\u30c8 - \u306e\u3081\u3057\u3053\u304d\u306e\u65e5\u3005\" \/>\n<meta property=\"og:description\" content=\"\u305b\u308f\u3057\u306a\u304b\u3063\u305f\u4eca\u9031\u672b\u3067\u3057\u305f\u3051\u3069\u3001\u571f\u66dc\u65e5\u306f\u4e45\u3057\u3076\u308a\u306b\u8da3\u5473\u306e\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u304c\u3067\u304d\u3066\u697d\u3057\u304b\u3063\u305f\u3067\u3059\u3002 \u4e88\u544a\u3069\u304a\u308a\u3001\u30e1\u30fc\u30eb\u3067Twitter\u306b\u6295\u7a3f\u3059\u308bPerl\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u4f5c\u3063\u3066\u307f\u307e\u3057\u305f\u3002\" \/>\n<meta property=\"og:url\" content=\"https:\/\/polaire.org\/r-top\/2007\/04\/twitterperl.html\" \/>\n<meta property=\"og:site_name\" content=\"\u306e\u3081\u3057\u3053\u304d\u306e\u65e5\u3005\" \/>\n<meta property=\"article:published_time\" content=\"2007-04-22T14:38:01+00:00\" \/>\n<meta name=\"author\" content=\"\u3075\u3047\u308b\u304b\u3069\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"\u57f7\u7b46\u8005\" \/>\n\t<meta name=\"twitter:data1\" content=\"\u3075\u3047\u308b\u304b\u3069\" \/>\n\t<meta name=\"twitter:label2\" content=\"\u63a8\u5b9a\u8aad\u307f\u53d6\u308a\u6642\u9593\" \/>\n\t<meta name=\"twitter:data2\" content=\"2\u5206\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/polaire.org\/r-top\/2007\/04\/twitterperl.html\",\"url\":\"https:\/\/polaire.org\/r-top\/2007\/04\/twitterperl.html\",\"name\":\"\u30e1\u30fc\u30eb\u3067Twitter\u306b\u6295\u7a3f\u3059\u308bPerl\u30b9\u30af\u30ea\u30d7\u30c8 - \u306e\u3081\u3057\u3053\u304d\u306e\u65e5\u3005\",\"isPartOf\":{\"@id\":\"https:\/\/polaire.org\/r-top\/#website\"},\"datePublished\":\"2007-04-22T14:38:01+00:00\",\"author\":{\"@id\":\"https:\/\/polaire.org\/r-top\/#\/schema\/person\/2c4a6222c5daa974b4260109efe45682\"},\"breadcrumb\":{\"@id\":\"https:\/\/polaire.org\/r-top\/2007\/04\/twitterperl.html#breadcrumb\"},\"inLanguage\":\"ja\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/polaire.org\/r-top\/2007\/04\/twitterperl.html\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/polaire.org\/r-top\/2007\/04\/twitterperl.html#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"\u30db\u30fc\u30e0\",\"item\":\"https:\/\/polaire.org\/r-top\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"\u30e1\u30fc\u30eb\u3067Twitter\u306b\u6295\u7a3f\u3059\u308bPerl\u30b9\u30af\u30ea\u30d7\u30c8\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/polaire.org\/r-top\/#website\",\"url\":\"https:\/\/polaire.org\/r-top\/\",\"name\":\"\u306e\u3081\u3057\u3053\u304d\u306e\u65e5\u3005\",\"description\":\"\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/polaire.org\/r-top\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"ja\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/polaire.org\/r-top\/#\/schema\/person\/2c4a6222c5daa974b4260109efe45682\",\"name\":\"\u3075\u3047\u308b\u304b\u3069\",\"url\":\"https:\/\/polaire.org\/r-top\/author\/r-top\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"\u30e1\u30fc\u30eb\u3067Twitter\u306b\u6295\u7a3f\u3059\u308bPerl\u30b9\u30af\u30ea\u30d7\u30c8 - \u306e\u3081\u3057\u3053\u304d\u306e\u65e5\u3005","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/polaire.org\/r-top\/2007\/04\/twitterperl.html","og_locale":"ja_JP","og_type":"article","og_title":"\u30e1\u30fc\u30eb\u3067Twitter\u306b\u6295\u7a3f\u3059\u308bPerl\u30b9\u30af\u30ea\u30d7\u30c8 - \u306e\u3081\u3057\u3053\u304d\u306e\u65e5\u3005","og_description":"\u305b\u308f\u3057\u306a\u304b\u3063\u305f\u4eca\u9031\u672b\u3067\u3057\u305f\u3051\u3069\u3001\u571f\u66dc\u65e5\u306f\u4e45\u3057\u3076\u308a\u306b\u8da3\u5473\u306e\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u304c\u3067\u304d\u3066\u697d\u3057\u304b\u3063\u305f\u3067\u3059\u3002 \u4e88\u544a\u3069\u304a\u308a\u3001\u30e1\u30fc\u30eb\u3067Twitter\u306b\u6295\u7a3f\u3059\u308bPerl\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u4f5c\u3063\u3066\u307f\u307e\u3057\u305f\u3002","og_url":"https:\/\/polaire.org\/r-top\/2007\/04\/twitterperl.html","og_site_name":"\u306e\u3081\u3057\u3053\u304d\u306e\u65e5\u3005","article_published_time":"2007-04-22T14:38:01+00:00","author":"\u3075\u3047\u308b\u304b\u3069","twitter_card":"summary_large_image","twitter_misc":{"\u57f7\u7b46\u8005":"\u3075\u3047\u308b\u304b\u3069","\u63a8\u5b9a\u8aad\u307f\u53d6\u308a\u6642\u9593":"2\u5206"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/polaire.org\/r-top\/2007\/04\/twitterperl.html","url":"https:\/\/polaire.org\/r-top\/2007\/04\/twitterperl.html","name":"\u30e1\u30fc\u30eb\u3067Twitter\u306b\u6295\u7a3f\u3059\u308bPerl\u30b9\u30af\u30ea\u30d7\u30c8 - \u306e\u3081\u3057\u3053\u304d\u306e\u65e5\u3005","isPartOf":{"@id":"https:\/\/polaire.org\/r-top\/#website"},"datePublished":"2007-04-22T14:38:01+00:00","author":{"@id":"https:\/\/polaire.org\/r-top\/#\/schema\/person\/2c4a6222c5daa974b4260109efe45682"},"breadcrumb":{"@id":"https:\/\/polaire.org\/r-top\/2007\/04\/twitterperl.html#breadcrumb"},"inLanguage":"ja","potentialAction":[{"@type":"ReadAction","target":["https:\/\/polaire.org\/r-top\/2007\/04\/twitterperl.html"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/polaire.org\/r-top\/2007\/04\/twitterperl.html#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"\u30db\u30fc\u30e0","item":"https:\/\/polaire.org\/r-top"},{"@type":"ListItem","position":2,"name":"\u30e1\u30fc\u30eb\u3067Twitter\u306b\u6295\u7a3f\u3059\u308bPerl\u30b9\u30af\u30ea\u30d7\u30c8"}]},{"@type":"WebSite","@id":"https:\/\/polaire.org\/r-top\/#website","url":"https:\/\/polaire.org\/r-top\/","name":"\u306e\u3081\u3057\u3053\u304d\u306e\u65e5\u3005","description":"","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/polaire.org\/r-top\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"ja"},{"@type":"Person","@id":"https:\/\/polaire.org\/r-top\/#\/schema\/person\/2c4a6222c5daa974b4260109efe45682","name":"\u3075\u3047\u308b\u304b\u3069","url":"https:\/\/polaire.org\/r-top\/author\/r-top"}]}},"_links":{"self":[{"href":"https:\/\/polaire.org\/r-top\/wp-json\/wp\/v2\/posts\/4931","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/polaire.org\/r-top\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/polaire.org\/r-top\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/polaire.org\/r-top\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/polaire.org\/r-top\/wp-json\/wp\/v2\/comments?post=4931"}],"version-history":[{"count":0,"href":"https:\/\/polaire.org\/r-top\/wp-json\/wp\/v2\/posts\/4931\/revisions"}],"wp:attachment":[{"href":"https:\/\/polaire.org\/r-top\/wp-json\/wp\/v2\/media?parent=4931"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/polaire.org\/r-top\/wp-json\/wp\/v2\/categories?post=4931"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/polaire.org\/r-top\/wp-json\/wp\/v2\/tags?post=4931"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}