nDiki : 2004年08月29日

■ 過去の今ごろ

過去の8月29日より。

• PPMパッケージリポジトリ
  • さすがに SOAPサーバ版は立てようとは思わないな。今の自分用Webリポジトリ版についてはサマリファイルを用意した方が効率がいいかも。

• 合格 (2004-11-12)
• Last.fm Radio Player でラジオを聞いてみる (2006-02-04)
• JAlbum で Webフォトアルバム (2004-11-14)
• 私的10大ニュース2004 [ photo ] (2004-12-31)
• amaroK で聞いた曲を Web ページで表示 (2006-02-02)

■ m4s 焼肉off

大岡山の牛神にて。真中の排煙用のパイプが会話にはちと邪魔だった。 炭火焼き。 かなーり久しぶりの焼肉。後半はビビンバを延々と食べていた気が。 満腹満足。

メンツは m4s のやまだ君、田中丸君、よしだ君。

• 内側から見た富士通「成果主義」の崩壊
• やまだ君桜咲く
• プール、スポーツクラブ
• Haskell の遅延評価
• DbC と CafeOBJ
• コーンフレーク風味のもろこし茶

• 近谷研OB会代替OFF会 (2004-03-20)
• m4s オフ会 (2005-04-23)
• 岩合光昭写真展「ホッキョクグマ」〜極北の大地から〜 (2004-04-29)
• 近谷先生ご退職記念パーティー (2006-03-25)
• m4s tkh再会新年会 (2005-01-06)

■ XML-RPC - Java クライアントと Perl サーバ

Java プログラムと Perl プログラムとの連携に XML-RPCが使えないか検討。 まずは実験。

@ Perl 側

RPC::XMLモジュールを使う。

 #!/usr/bin/perl -w

 use strict;
 use RPC::XML::Server;

 my $server = RPC::XML::Server->new(port => 9876);
 $server->add_method( {name => 'Perl.eval',
                       signature => [ 'struct string' ],
                       code => sub { warn $_[1]; return {value => eval $_[1]}}});
 $server->server_loop;

引数の文字列を eval した結果を文字列で返す危険な手続き。

@ Java 側

いろいろライブラリがあり迷う。 Apache XML-RPCが簡単そうなのでまずはこれで。1.2-b1 を使用。

 import java.util.Vector;
 import java.util.Hashtable;
 import java.io.IOException;

 import org.apache.xmlrpc.XmlRpcClient;
 import org.apache.xmlrpc.XmlRpcException;

 public class XMLRPCClient {
   public static void main(String[] args) {
     String url = args[0];
     String methodName ="Perl.eval";
     Vector params = new Vector();
     params.add(args[1]);
     try {
       XmlRpcClient client = new XmlRpcClient(url);
       try {
         //String result = (String)client.execute(methodName, params);
         //System.out.println(result);
         Hashtable result = (Hashtable)client.execute(methodName, params);
         System.out.println(result.get("value"));
       } catch (XmlRpcException ex) {
         System.out.println(ex.getMessage());
       }
     } catch (IOException ex) {
       ex.printStackTrace();
     }
   }
 }

Perl 側でプログラムを起動しておいて実行。

 java -classpath .:xmlrpc-1.2-b1.jar \
   XMLRPCClient http://localhost:9876/ "3 + 5"

8 が出力される。成功。簡単。

• RPC::XML のかわりに XMLRPC::Lite (2004-08-31)
• 私的10大ニュース2004 [ comp ] (2004-12-31)
• ハッシュとは (2004-06-09)
• SQLite とか DbUnit とか (2005-05-23)
• 過去の今ごろ (2004-08-27)