【erlang】IPv6格式轉IPv4

erlang裏面的httpd模塊保存的http請求頭裏面，其中remote_addr 保存的是IPv6的格式。

即便是IPv4，也會用IPv6的格式來保存。如

{remote_addr, "0:0:0:0:0:FFFF:C0A8:4E01"}

 

其實表示的就是IPv4爲127.0.0.1的IPv6格式。

雖然IPv6是趨勢，但沒使用，這樣用起來很不方便。特別是我這邊要實現一個IP白名單的功能。

因此寫了一個比較簡單的轉換方法。

-module(test).
-export([ipv6_2_ipv4/1]).


%% V6 = "0:0:0:0:0:FFFF:C0A8:4E01".
ipv6_2_ipv4(V6)->
    L1 = string:tokens(V6,":"),
    V4_7 = format(lists:nth(7, L1)),
    V4_8 = format(lists:nth(8, L1)),
    Ip1 = list_to_integer(string:substr(V4_7, 1, 2), 16),
    Ip2 = list_to_integer(string:substr(V4_7, 3, 2), 16),
    Ip3 = list_to_integer(string:substr(V4_8, 1, 2), 16),
    Ip4 = list_to_integer(string:substr(V4_8, 3, 2), 16),
    {Ip1, Ip2, Ip3, Ip4}.


%% =================
%% internal function
%% =================
format(Term) when length(Term) =:= 1 ->
    "000"++Term;
format(Term) when length(Term) =:= 2 ->
    "00"++Term;
format(Term) when length(Term) =:= 3 ->
    "0"++Term;
format(Term) when length(Term) =:= 4 ->
    Term.