#!c:\perl\bin\perl #!/usr/bin/perl use strict; use warnings; use IO::Handle; use Data::Dumper; use XMLRPC::Lite; use File::Basename; { my $blogid = "ブログID"; my $username = "ユーザー名"; my $password = "パスワード"; my $proxyurl = "ブログのXMLRPC先"; # 画像パス my $filename = "C:/images/xxxx.jpg"; my $bits = read_bin_file ($filename); # # ここで画像を投稿する # いまのところ1枚単位 # my $picresult = XMLRPC::Lite -> proxy($proxyurl) -