Erlang PID by inet PORT

inet_pid.erl

%% @doc Return pid of a process which opened a socket binded to a given port.
-spec get_pid(inet:port_number(), 'tcp' | 'udp' | 'sctp') -> pid() | undefined.
get_pid(Port, Proto) when is_integer(Port), is_atom(Proto) ->
    Name = name(Proto),
    InetPorts = [P || P <- erlang:ports(),
        {name, Name} == erlang:port_info(P, name)],

    try
        lists:filter(
            fun (P) ->
                case inet:port(P) of
                    {ok, Port} -> throw({found, P});
                    _ -> ok
                end
            end,
            InetPorts
        ),
        undefined
    catch
        throw:{found, P} ->
            proplists:get_value(connected, erlang:port_info(P))
    end.

name(tcp) -> "tcp_inet";
name(udp) -> "udp_inet";
name(sctp) -> "sctp_inet".