-module(test).
-export([start/2]).
start(Address, Port) ->
OP = [
inet,
binary,
{reuseaddr, true},
{nodelay, true}
],
Request = ["GET / HTTP/1.1\r\nHost: ", Address, "\r\n\r\n"],
io:format("~p~n", [list_to_binary(Request)]),
{ok, Socket} = gen_tcp:connect(Address, Port, OP, 5000),
ok = gen_tcp:send(Socket, list_to_binary(Request)),
getdata(Socket, []).
getdata(Socket, D) ->
io:format("receive data...~n", []),
receive
{tcp,Socket, Data} ->
getdata(Socket, [Data | D]);
{tcp_closed, Socket} ->
io:format("tcp_closed~n", []),
lists:reverse(D);
{tcp_error, Socket, _Reason} ->
io:format("tcp_error~n", []),
lists:reverse(D)
end.