- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
case lists:member($:, Index) of
false -> % this is ipv4
[D4,D3,D2,D1|C] = lists:reverse(string:tokens(Index,".")),
IP = make_dot_string([D1,D2,D3,D4]),
Nw = make_dot_string(lists:reverse(C));
true -> % this is ipv6
[D|C] = lists:reverse(string:tokens(Index,".")),
IP = D,
Nw = make_dot_string(lists:reverse(C))
end
Никогда не понимал, зачем использовать новомодные языки типа "Erlang" или "Haskell", если всё, что угодно, можно напрограммировать на "PHP", а с использованием "DevelStudio" - даже для "desktop"-а.