【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.
上一篇:Bootstrap 字体与图标


下一篇:delphi发送html带附件邮件