perl で XMLRPC::Data->type arrayをどうする | 評価特典.確実に稼ぐ商材評価アフィリハローワークゆずまる評価特典.確実に稼ぐ商材評価アフィリハローワークゆずまる

perl での カテゴリーの一覧取得

eval{

$result = XMLRPC::Lite

-> proxy($endpoint)

-> call($WPcmd, $blogid, $username, $password,

{

},

1

)

-> result;

};

tracesub(“resultX=$result”);

foreach( @$result ){

%tmp = %$_;

$catid =$tmp{“categoryId”};

$catname =$tmp{“categoryName”};

$catnameV=$catname;

$catnameV=strcode_conv(‘utf8N2sjis’,$catnameV);

tracesub(“—————–“);

tracesub(“$catid)P=$catname”);

tracesub(“$catid)V=$catnameV”);

}

※tracesub ってのは、実行ログを表示させるオリジナルモジュールです。

全角は UTF8N で戻ってくるのでソースが shift-jis ならば、文字列変換が必要。

オリジナルモジュールにしてあるけど、実際はこう書く。

use Encode;

$catnameV=encode(‘shiftjis’, decode(‘utf8’, $catnameV));

これで拾ったカテゴリーをそのまま使って投稿してあげればいいってことだ。

とにかく、猫も杓子も php　でとっても困る。

perl 使いの役に立てたら幸いです。

XMLRPCも使えない telnet も使えないサーバーで XMLRPCを使うには

サーバーによっては使えないかもしれないけど、最近は使えるサーバーが多くなってきた。

cpan から perl のライブラリ拾ってきて、

ディレクトリに保存しておく。

それを仮に mycpanってところに保存したら、こう書く。

#

#　mypcan

#　　|

#　　+—XMLRPC

#　　|　　|

#　　|　　+—Lite.pm

use lib qw(./mycpan);

use XMLRPC::Lite;