0

При настройке сокета и установке {packet, http}, никакие данные как будто не уходят. Всё происходит на одной машине, tcp из терминала в терминал - норм, http - из браузера и второго окна терминала данные приходят, обратно будто ничего не уходило. Гоову сломал. Зойчем всё это? Для полноценного сервера задача мелкая, поэтому наколенка.

Что я делаю не так?

hreq({S, N}) ->
    receive
        close ->
            ok;
        {http, S, http_eoh} ->
            io:format("~nHTTP-EOH-1~n"),
            Hd="HTTP/1.x 200 OK\r\n Content-Type: text/html, charset=ISO-8859-1\r\n\r\n",
            gen_tcp:send(S, Hd),
            Sq=$",
            Bsend=lists:flatten("<!DOCTYPE html>\r\n<html>\r\n<head>\r\n<meta charset="++[Sq]++"ISO-8859-1"++[Sq]++"/>\r\n<title>@</title>\r\n</head>\r\n<body>\r\n<p>HEADER WELCOME</p>\r\n</body>\r\n</html>\r\n\r\n"),
            gen_tcp:send(S, Bsend),
            inet:setopts(S, [list, {active, true}, {packet, http}]),
            io:format("~nHTTP-EOH-2~n"),
            hreq({S, N});
        {tcp_closed, S} ->
            gen_tcp:close(S),
            io:format("~nCLOSED~n");
        Data ->
            io:format("~n~p~n", [Data]),
            inet:setopts(S, [list, {active, true}, {packet, http}]),
            hreq({S, N})
    end.
3
  • Загляните в книжку Ф. Чезарини "Программирование Erlang", там очень хороший пример простого сервера есть. Можно даже не читать всё, а его найти. Я не писал код на Erlang лет 5, так что у меня только флэшбэки. А так, посмотрите в сторону HTTP сервака Cowboy, надеюсь он еще жив. Щас все фунциональщики на Elixir сидят, так что по чистому Erlang вряд-ли кто здесь поможет.
    – aepot
    21 сен 2022 в 6:20
  • @aepot , тут такое дело... У меня на столе три бумажные книги, Чезарини тоже. Там расписано по работе с udp/ip и tcp/ip соединениями, но прикладной уровень не рассматривается. По Cowboy есть старый сайт, старый гит и близкая к нулю документация к пакету в репах Ubuntu. Так что покурю штатный inets да после этого pet- проджекта уйду в Go.
    – rabbid
    21 сен 2022 в 13:26
  • Мож фаер мешает, тут сложно понять по коду, что именно не так.
    – aepot
    21 сен 2022 в 14:10

1 ответ 1

1

Всё нормально, всё работает. Надо всего лишь юзать бинарное представление данных: https://stackoverflow.com/questions/2206933/how-to-write-a-simple-webserver-in-erlang

Opts=[binary, {active, once}, {packet, http_bin}]

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.