udp_srv.erl

-module(udp_srv).

-export([go/1]).

%%%===================================================================
%%% API
%%%===================================================================

go(Port) ->
    {ok, Socket} = gen_udp:open(Port, [binary,{active,false}]),
    main(Socket).

%%%===================================================================
%%% Internal Functions
%%%===================================================================

main(Socket) ->
    case gen_udp:recv(Socket, 1024) of
        {ok, {_Address, _Port, Packet}} ->
            io:format(user, "~p~n", [Packet]);
        _ ->
            ok
    end,
    main(Socket).