参考了 Erlang 官方文档和 http://blog.developers.api.sina.com.cn/?tag=erlang
以及http://kazmier.net/computer/port-howto/ .
-module(town).
-behaviour(gen_server).
%% API
-export([start/0,combine/1]).
%% gen_server callbacks
-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
terminate/2, code_change/3]).
-record(state, {port}).
start() ->
gen_server:start_link({global, ?MODULE}, ?MODULE, [], []).
stop() ->
gen_server:cast(?SERVER, stop).
init([]) ->
process_flag(trap_exit, true),
Port= open_port({spawn, "python -u /home/freefis/Desktop/town.py"},[stream,{line, 1024}]),
{ok, #state{port = Port}}.
handle_call({combine,String}, _From, #state{port = Port} = State) ->
port_command(Port,String),
receive
{Port,{data,{_Flag,Data}}} ->
io:format("receiving:~p~n",[Data]),
sleep(2000),
{reply, Data, Port}
end.
handle_cast(stop, State) ->
{stop, normal, State};
handle_cast(_Msg, State) ->
{noreply, State}.
handle_info(Info, State) ->
{noreply,State}.
terminate(_Reason, Port) ->
ok.
code_change(_OldVsn, State, _Extra) ->
{ok, State}.
%%--------------------------------------------------------------------
%%% Internal ---------------------------------------------------------
combine(_String) ->
start(),
String= list_to_binary("combine|"++_String++"\n"),
gen_server:call(?SERVER,{combine,String},infinity),
stop().这段是Python的脚本 当erlang中town:combine(“sentence1+sentence2″)执行时，会在后台启动python的脚本，处理完毕后返回给Erlang结果:sentence1sentence2，然后退出。
importsys
defhandle(_string):
if_string.startswith("combine|"):
string ="".join( _string[8:].split(","))
returnstring
"""waiting for input """
while1:
# Recv. Binary Stream as Standard IN
_stream =sys.stdin.readline()
ifnot_stream: break
# Scheme, Turn into Formal String
inString =_stream.strip("\r\n")
# handle String
outString =handle(inString)
# send to port as Standart OUT
sys.stdout.write("%s\n"%(outString,))
sys.exit(0)