Erlang与JAVA的交互操作

http://www.lupaworld.com/action-viewstutorial-itemid-10193.html
试了一下传说中的 JInterface ，使用 OtpErlang.jar 的整个过程其实非常简单，似乎比 JMS 的程序都简单。

首先，我们要用 java 实现的原始 erlang 程序如下，没错，就是巨简单的 echo ，我们的目标是要把它用 java 来改写，不仅写服务端，也要写客户端。
下载: echo_client.erl

   1. -module(echo_client).
   2. 
   3. -export([run/0]).
   4. 
   5. run() ->
   6.     Msg = "Hello Echo!",
   7.     {echo, abc@merlin} ! {self(), Msg},
   8.     io:format("send ~p ~n", [Msg]),
   9.     receive
  10.         Res ->
  11.             io:format("received ~p ~n", [Res])
  12.     end.

下载: echo_server.erl

   1. -module(echo_server).
   2. 
   3. -export([start/0]).
   4. 
   5. start() ->
   6.     register(echo, self()),
   7.     io:format("echo start~n", []),
   8.     loop().
   9. 
  10. loop() ->
  11.     receive
  12.         {Pid, Msg} ->
  13.             io:format("received ~p from ~p~n", [Msg, Pid]),
  14.             Pid ! Msg;
  15.         Any ->
  16.             io:format("received ~p ~n", [Any])
  17.     end,
  18.     loop().

写得并不严密，用了一堆硬编码，主要是个示例，就那么个意思，大家将就着看。

先说一下 JInterface 的一些基本概念。JInterface 的目的是：为 Java 提供一个包，使得 Java 程序在外部可以看起来就像一个标准的 Erlang Node 能以标准的 Erlang 方式与其他的节点进行通讯。它包装了 Erlang 节点之间分布式的通讯协议，编码解码，以及基本的 Erlang 操作，也就是 pid register send receive link unlink 等等，朴实无华。不过，作为两个语言之间的接口包，有了这些基本功能也就足够了。

根据 Erlang 的目录惯例， JInterface 的 Jar 在 ERLANG_HOME/lib/jinterface-x.x/priv 目录下，名字为 OtpErlang.jar 。注意，必须使用和你当前 Erlang 版本下的包，否则出了什么妖怪问题，别来问我，就算是问我，我也不知道该怎么办。:D 之前一直有一个误解，想当然的以为 JInterface 会用 JNI 什么的来实现，而自从碰过一次以后，对 JNI 这种“难以掌控”的东西总觉得有点畏难，所以，迟迟都没有动手，没想到，竟是纯 Java 实现的一个包。用起来方便，部署起来也漂亮。爽！

闲话休提，直接上代码得了。先是 Client 的代码。
下载: ErlangEchoClient.java

   1. package com.test.erlang;
   2. 
   3. import java.io.IOException;
   4. 
   5. import com.ericsson.otp.erlang.*;
   6. 
   7. public class ErlangEchoClient {
   8.   
   9.     public static void main(String[] args) throws IOException {
  10.       
  11.         String v = System.getProperties().getProperty("OtpConnection.trace");
  12.         System.out.println("OtpConnection.trace="+v);
  13.       
  14.         OtpNode self = new OtpNode("bcd", "123");
  15.       
  16.         System.out.println("node:"+self.node());
  17.         System.out.println("cookie:"+self.cookie());
  18.       
  19.         if (self.ping("abc", 2000)) {
  20.             System.out.println("remote is up");
  21.         } else {
  22.             System.out.println("remote is not up");
  23.             return;
  24.         }
  25.       
  26.         String text = "Hi there";
  27.       
  28.         OtpMbox mbox = self.createMbox();
  29.       
  30.         OtpErlangObject[] msg = new OtpErlangObject[2];
  31.         msg[0] = mbox.self();
  32.         msg[1] = new OtpErlangString(text);
  33.         OtpErlangTuple tuple = new OtpErlangTuple(msg);
  34. 
  35.         mbox.send("echo", "abc", tuple);
  36.       
  37.         System.out.println("send:"+text);
  38. 
  39.         try {
  40.           
  41.             OtpErlangObject reply = mbox.receive();
  42.           
  43.             System.out.println("receive[raw]:"+reply);
  44.           
  45.             if (reply instanceof OtpErlangString) {
  46.                 OtpErlangString text2 = (OtpErlangString) reply;
  47.               
  48.                 System.out.println("receive[text]:"+text2);
  49. 
  50.             }
  51.         } catch (Exception e) {
  52.             System.out.println("" + e);
  53.         }
  54.     }
  55. 
  56. }

下载: ErlangEchoServer.java

   1. package com.test.erlang;
   2. 
   3. import java.io.IOException;
   4. 
   5. import com.ericsson.otp.erlang.*;
   6. 
   7. public class ErlangEchoServer {
   8.   
   9.     public static void main(String[] args) throws IOException {
  10.       
  11.         String v = System.getProperties().getProperty("OtpConnection.trace");
  12.         System.out.println("OtpConnection.trace="+v);
  13.       
  14.         OtpNode self = new OtpNode("server1", "123");
  15.       
  16.         System.out.println("node:"+self.node());
  17.         System.out.println("cookie:"+self.cookie());
  18.       
  19.         OtpMbox mbox = self.createMbox("echo");
  20.       
  21.         String[] names = self.getNames();
  22.         for(int i=0; i<names.length; i++) System.out.println("name:"+names[i]);
  23.       
  24.         while (true) {
  25.             try {
  26.                 OtpErlangObject request = mbox.receive();
  27.               
  28.                 System.out.println("receive[raw]:"+request);
  29.               
  30.                 if (request instanceof OtpErlangTuple) {
  31.                     OtpErlangTuple t = (OtpErlangTuple) request;
  32.                     OtpErlangPid pid = (OtpErlangPid) (t.elementAt(0));
  33.                     OtpErlangString text = (OtpErlangString) (t.elementAt(1));
  34.                   
  35.                     System.out.println("receive[text]:"+text);
  36.                   
  37.                     OtpErlangString response = text;
  38.                   
  39.                     mbox.send(pid, response);
  40.                 }
  41.             } catch (Exception e) {
  42.                 System.out.println("" + e);
  43.             }
  44.         }
  45.     }
  46. 
  47. }

这里有几个需要提示的地方。

1. OtpErlang.jar 里面会访问系统变量 OtpConnection.trace 当它不为 0 时会显示链底层的 debug 信息。在调试时，这个设置就像照妖镜，有啥妖怪问题，都给照出来了。

2. setcookie 很重要。我这里是明确指定 123 作为 cookie ，如果这个 cookie 不匹配（比如，最好用： erl -setcookie 123 来启动）两端就死活也连不上，尤其是当你没有把上面的 trace 打开的时候，那你就去找去吧。

3. epmd 是 erlang 通讯机制的基础。也就是说，运行的时候，至少需要有一个 epmd 在运行（实际上也只会有一个）。比如说 java client 调用 erlang server ，erlang client 调 java server ，erlang client 调 erlang server 都很正常的不会有问题。而如果你要 java client 调 java server 的时候，最好先确认一下系统中有 epmd 正在运行。否则就会很邪。而启动一个 epmd 的超简单方法就是打开一个 erlang 的 console ，什么也不干都行。

扩充话提：Java Node 是 Hidden Node，一般启动的 Erlang 程序都运行在非 hidden node 模式下。具体 Hidden Node 的区别超出了本日志的范围，大家自己啃文档吧(其实是我也没看得很透彻，就不误导大家了，哈哈)。

再来个体外话，有了 JInterface 就等于在 Java 和 Erlang 的世界之间架起了一座桥梁。通过这个桥梁能干吗呢？这个问题留给你自己去想。