{"id":180,"date":"2007-10-18T17:53:18","date_gmt":"2007-10-18T08:53:18","guid":{"rendered":"https:\/\/deskplate.net\/blog\/2007\/10\/18\/xml-rpc%e3%81%a7%e3%81%ae%e7%94%bb%e5%83%8f%e6%8a%95%e7%a8%bf%e3%80%80perl\/"},"modified":"2007-10-18T17:53:18","modified_gmt":"2007-10-18T08:53:18","slug":"xml-rpc%e3%81%a7%e3%81%ae%e7%94%bb%e5%83%8f%e6%8a%95%e7%a8%bf%e3%80%80perl","status":"publish","type":"post","link":"https:\/\/deskplate.net\/blog\/archives\/180","title":{"rendered":"XML-RPC\u3067\u306e\u753b\u50cf\u6295\u7a3f\u3000Perl"},"content":{"rendered":"

#!c:\\perl\\bin\\perl
\n#!\/usr\/bin\/perl
\nuse\u3000strict;
\nuse\u3000warnings;
\nuse\u3000IO::Handle;
\nuse\u3000Data::Dumper;
\nuse\u3000XMLRPC::Lite;
\nuse\u3000File::Basename;
\n{
\n\u3000\u3000\u3000my\u3000$blogid\u3000\u3000\u3000=\u3000”\u30d6\u30ed\u30b0\uff29\uff24”;
\n\u3000\u3000\u3000my\u3000$username\u3000=\u3000”\u30e6\u30fc\u30b6\u30fc\u540d”;
\n\u3000\u3000\u3000my\u3000$password\u3000=\u3000”\u30d1\u30b9\u30ef\u30fc\u30c9”;
\n\u3000\u3000\u3000my\u3000$proxyurl\u3000=\u3000”\u30d6\u30ed\u30b0\u306eXMLRPC\u5148”;
\n\u3000\u3000\u3000# \u753b\u50cf\u30d1\u30b9
\n\u3000\u3000\u3000my\u3000$filename\u3000\u3000=\u3000”C:\/images\/xxxx.jpg”;
\n\u3000\u3000\u3000my\u3000$bits\u3000=\u3000read_bin_file\u3000($filename);
\n\u3000\u3000\u3000#
\n\u3000\u3000\u3000# \u3053\u3053\u3067\u753b\u50cf\u3092\u6295\u7a3f\u3059\u308b
\n\u3000\u3000\u3000# \u3044\u307e\u306e\u3068\u3053\u308d\uff11\u679a\u5358\u4f4d
\n\u3000\u3000\u3000#
\n\u3000\u3000\u3000my\u3000$picresult\u3000=\u3000XMLRPC::Lite
\n\u3000\u3000\u3000\u3000\u3000\u3000->\u3000proxy($proxyurl)
\n\u3000\u3000\u3000\u3000\u3000\u3000->\u3000call(‘metaWeblog.newMediaObject’,\u3000$blogid,\u3000$username,\u3000$password,
\n\u3000\u3000\u3000\u3000\u3000\u3000{
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000’bits’\u3000=>\u3000XMLRPC::Data->type(‘base64’,\u3000$bits),
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000’type’\u3000=>\u3000”image\/jpeg”,
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000’name’\u3000=>\u3000basename($filename)
\n\u3000\u3000\u3000\u3000\u3000\u3000}
\n\u3000\u3000\u3000\u3000\u3000\u3000)
\n\u3000\u3000\u3000\u3000\u3000\u3000->\u3000result;
\n\u3000\u3000\u3000if\u3000(!defined\u3000($picresult))
\n\u3000\u3000\u3000{
\n\u3000\u3000\u3000\u3000\u3000\u3000die\u3000”failed\u3000$!”;
\n\u3000\u3000\u3000}
\n\u3000\u3000\u3000else
\n\u3000\u3000\u3000{
\n\u3000\u3000\u3000\u3000\u3000\u3000#
\n\u3000\u3000\u3000\u3000\u3000\u3000#\u3000\u672c\u6587\u306e\u6295\u7a3f
\n\u3000\u3000\u3000\u3000\u3000\u3000#
\n\u3000\u3000\u3000\u3000\u3000\u3000my\u3000$msgresult\u3000=\u3000XMLRPC::Lite
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000->\u3000proxy($proxyurl)
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000->\u3000call(‘metaWeblog.newPost’,\u3000$blogid,\u3000$username,\u3000$password,
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000{
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000’title’\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000=>\u3000”this\u3000is\u3000the\u3000title”,
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000’description’\u3000\u3000\u3000\u3000\u3000\u3000\u3000=>\u3000”and\u3000this\u3000is\\n\\n”\u3000.
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000”the\u3000body\u3000and\u3000a\u3000link\u3000to\u3000the\u3000picture\\n\\n”\u3000.
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000”{‘url’}\u3000.\u3000”\\”>\\n\\nthe\u3000end\u3000:-)\\n”,
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000’mt_allow_comments’\u3000=>\u30001,\u3000\u3000#\u3000must\u3000be\u3000int,\u3000not\u3000string
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000’mt_allow_pings’\u3000\u3000\u3000\u3000=>\u30001\u3000\u3000\u3000#\u3000must\u3000be\u3000int,\u3000not\u3000string
\n#\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000’mt_convert_breaks’\u3000=>\u3000””,\u3000#\u3000string,\u3000see\u3000mt.supportedTextFilters\u3000for\u3000a\u3000valid\u3000value
\n#\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000’mt_text_more’\u3000\u3000\u3000\u3000\u3000\u3000=>\u3000””,\u3000#\u3000the\u3000extended\u3000entry
\n#\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000’mt_excerpt’\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000=>\u3000””,
\n#\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000’mt_keywords’\u3000\u3000\u3000\u3000\u3000\u3000\u3000=>\u3000””,
\n#\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000’mt_tb_ping_urls’\u3000\u3000\u3000=>\u3000??,\u3000#array\u3000of\u3000strings,\u3000ping\u3000URLs
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000},
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u30001\u3000#\u30001\u3000=\u3000publish
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000)
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000->\u3000result;
\n\u3000\u3000\u3000\u3000\u3000\u3000if\u3000(!defined\u3000($msgresult))
\n\u3000\u3000\u3000\u3000\u3000\u3000{
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000die\u3000”failed\u3000$!”;
\n\u3000\u3000\u3000\u3000\u3000\u3000}
\n\u3000\u3000\u3000\u3000\u3000\u3000else
\n\u3000\u3000\u3000\u3000\u3000\u3000{
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000print\u3000Dumper\u3000($msgresult);
\n\u3000\u3000\u3000\u3000\u3000\u3000}
\n\u3000\u3000\u3000}
\n}
\nsub\u3000read_bin_file
\n{
\n\u3000\u3000\u3000my\u3000($filename)\u3000=\u3000@_;
\n\u3000\u3000\u3000#——————–
\n\u3000\u3000\u3000#\u3000read\u3000in\u3000the\u3000picture
\n\u3000\u3000\u3000my\u3000$fh\u3000=\u3000IO::Handle->new();
\n\u3000\u3000\u3000open($fh,\u3000$filename)\u3000or\u3000die\u3000”$!”;
\n\u3000\u3000\u3000local($\/)\u3000=\u3000undef;\u3000\u3000#\u3000slurp
\n\u3000\u3000\u3000binmode($fh);
\n\u3000\u3000\u3000my\u3000$bits\u3000\u3000=\u3000<$fh>;
\n\u3000\u3000\u3000close($fh);
\n\u3000\u3000\u3000return\u3000$bits;
\n}<\/p>\n","protected":false},"excerpt":{"rendered":"

#!c:\\perl\\bin\\perl #<\/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-180","post","type-post","status-publish","format-standard","hentry","category-perl"],"_links":{"self":[{"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/posts\/180","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/comments?post=180"}],"version-history":[{"count":0,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/posts\/180\/revisions"}],"wp:attachment":[{"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/media?parent=180"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/categories?post=180"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/tags?post=180"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}