Erlang: Let’s talk to java
試了一下傳說中的 JInterface ，使用 OtpErlang.jar 的整個過程其實非常簡單，似乎比 JMS 的程序都簡單。
首先，我們要用 java 實現的原始 erlang 程序如下，沒錯，就是巨簡單的 echo ，我們的目標是要把它用 java 來改寫，不僅寫服務端，也要寫客戶端。
- - module ( echo_client ) .
- ?
- - export ([ run / 0 ]) .
- ?
- run () ?->
- ? ?? Msg ?=? " Hello Echo! " ,
- ? ? { echo ,? abc @ merlin } ! { self () ,? Msg },
- ? ?? io : format ( " send ~p ~n " ,? [ Msg ]) ,
- ? ?? receive
- ? ? ? ?? Res ?->
- ? ? ? ? ? ?? io : format ( " received ~p ~n " ,? [ Res ])
- ? ?? end .
- - module ( echo_server ) .
- ?
- - export ([ start / 0 ]) .
- ?
- start () ?->
- ? ?? register ( echo ,? self ()) ,
- ? ?? io : format ( " echo start~n " ,? []) ,
- ? ?? loop () .
- ?
- loop () ?->
- ? ?? receive
- ? ? ? ? { Pid ,? Msg } ->
- ? ? ? ? ? ?? io : format ( " received ~p from ~p~n " ,? [ Msg ,? Pid ]) ,
- ? ? ? ? ? ?? Pid ?!? Msg ;
- ? ? ? ?? Any ?->
- ? ? ? ? ? ?? io : format ( " received ~p ~n " ,? [ Any ])
- ? ?? end ,
- ? ?? 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 的代碼。
- package ? com . test . erlang ;
- ?
- import ? java . io . IOException ;
- ?
- import ? com . ericsson . otp . erlang .*;
- ?
- public ? class ? ErlangEchoClient ?{
- ? ?
- ? ?? public ? static ? void ? main ( String [] ? args ) ? throws ? IOException ?{
- ? ? ? ?
- ? ? ? ?? String ? v ?= System . getProperties () . getProperty ( " OtpConnection.trace " ) ;
- ? ? ? ?? System . out . println ( " OtpConnection.trace= " + v ) ;
- ? ? ? ?
- ? ? ? ?? OtpNode ? self ?=? new ? OtpNode ( " bcd " ,? " 123 " ) ;
- ? ? ? ?
- ? ? ? ?? System . out . println ( " node: " + self . node ()) ;
- ? ? ? ?? System . out . println ( " cookie: " + self . cookie ()) ;
- ? ? ? ?
- ? ? ? ?? if ? ( self . ping ( " abc " ,? 2000 )) ?{
- ? ? ? ? ? ?? System . out . println ( " remote is up " ) ;
- ? ? ? ? }? else ?{
- ? ? ? ? ? ?? System . out . println ( " remote is not up " ) ;
- ? ? ? ? ? ?? return ;
- ? ? ? ? }
- ? ? ? ?
- ? ? ? ?? String ? text ?=? " Hi there " ;
- ? ? ? ?
- ? ? ? ?? OtpMbox ? mbox ?=? self . createMbox () ;
- ? ? ? ?
- ? ? ? ?? OtpErlangObject [] ? msg ?=? new ? OtpErlangObject [ 2 ] ;
- ? ? ? ?? msg [ 0 ] ?=? mbox . self () ;
- ? ? ? ?? msg [ 1 ] ?=? new ? OtpErlangString ( text ) ;
- ? ? ? ?? OtpErlangTuple ? tuple ?=? new ? OtpErlangTuple ( msg ) ;
- ?
- ? ? ? ?? mbox . send ( " echo " ,? " abc " ,? tuple ) ;
- padding-top: 0px !important; padding-right: 0px !important; padding-bottom: 0px !important; padding-left: 20px; display: list-item !important; font-size: 12px !important; line-height: 20px !important; border-left-width: 1px; border-left-style: solid; border-left-color: #c3ced9; border-top-width: 1px; border-top-style: solid; border-top-color: #e3eef9 !important; background-color: #f9fbfc !impo
發表評論
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
評論