1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
%%%-------------------------------------------------------------------
%%% @author Tuowen
%%% @copyright (C) 2014, <COMPANY>
%%% @doc
%%%
%%% @end
%%% Created : 26. 四月 2014 16:42
%%%-------------------------------------------------------------------
-module(portman).
-author("Tuowen").
%% API
-export([start/1,serv/1]).
oploop(Sock) ->
receive
{_Pid,shutdown} -> ok;
{tcp,Sock,Msg} ->
io:format("~p\n",[Msg]),
oploop(Sock);
{_Pid,Msg} ->
gen_tcp:send(Sock,Msg),
oploop(Sock)
end.
serv({Host,Port}) ->
{ok, Sock} = gen_tcp:connect(Host, Port,
[list, {packet, 1}]),
oploop(Sock),
ok = gen_tcp:close(Sock).
start(Config) ->
spawn(?MODULE,serv,[Config]).
|
