-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 functions
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，然后退出。
import sys
def handle(_string):
if _string.startswith("combine|"):
string = "".join( _string[8:].split(","))
return string
"""waiting for input """
while 1:
# Recv. Binary Stream as Standard IN
_stream = sys.stdin.readline()
if not _stream: break
# Scheme, Turn into Formal String
inString = _stream.strip("\r\n")
# handle String
utString = handle(inString)
# send to port as Standart OUT
sys.stdout.write("%s\n" % (outString,))
sys.exit(0)
