PLSQL函数将IPV4转换为IPV6 [英] PLSQL Function to convert IPV4 to IPV6
本文介绍了PLSQL函数将IPV4转换为IPV6的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
寻找pl \ sql（Oracle env。）转换函数，它除了输入一个字符串（IPV4格式）并返回IPV6格式，例如：
发送 - 10.85.79.96 将返回 0：0：0：0：0：ffff：a55：4f60
感谢您的帮助。
解决方案
您可以使用这组函数：
FUNCTION UncompressIpV6（Ip IN VARCHAR2）RETURN VARCHAR2 DETERMINISTIC是
IpFull VARCHAR2（40）;
len INTEGER：= 7;
BEGIN
IF REGEXP_LIKE（Ip，'::'）THEN
IpFull：= REGEXP_REPLACE（REGEXP_REPLACE（Ip，'^ ::'，'0 ::'），':: $ '，':: 0'）;
IF REGEXP_LIKE（Ip，'：\ d + \.\d + \.\d + \.\d + $'）THEN
- 混合表示法，例如：0 :: FFFF：129.144.52.38
len：= 6;
END IF;
WHILE REGEXP_COUNT（IpFull，'：'）<= len LOOP
IpFull：= REGEXP_REPLACE（IpFull，'::'，'：0 ::'）;
END LOOP;
RETURN REGEXP_REPLACE（IpFull，'::'，'：'）;
ELSE
RETURN Ip;
END IF;
END UncompressIpV6;
函数Ip2Decimal（IP IN VARCHAR2）返回值确定性
DecimalIp NUMBER：= 0;
BEGIN
IF REGEXP_LIKE（IP，'：'）THEN
IF REGEXP_LIKE（IP，'\ d + \.\d + \.\d + \ .'d + $'）THEN
- 混合表示法，例如：0：0：0：0：0：FFFF：129.144.52.38
SELECT SUM（TO_NUMBER（REGEXP_SUBSTR（UncompressIpV6（IP）， '[[：xdigit：]] +'，1，LEVEL），'XXXX'）* POWER（65536，8-level））
INTO DecimalIp
FROM dual
CONNECT BY LEVEL< ; = 6;
SELECT DecimalIp + SUM（REGEXP_SUBSTR（REGEXP_SUBSTR（UncompressIpV6（IP），'\ d + \.\d + \.\d + \.\d + $'），'\\ \\ d +'，1，LEVEL）* POWER（256，4-LEVEL））
INTO DecimalIp
FROM dual
CONNECT BY LEVEL <= 4;
RETURN DecimalIp;
ELSE
SELECT SUM（TO_NUMBER（REGEXP_SUBSTR（UncompressIpV6（IP），'[[：xdigit：]] +'，1，LEVEL），'XXXX'）* POWER（65536,8-LEVEL） ）
INTO DecimalIp
FROM dual
CONNECT BY LEVEL< = 8;
RETURN DecimalIp;
END IF;
ELSE
SELECT SUM（REGEXP_SUBSTR（IP，'\ d +'，1，LEVEL）* POWER（256，4-LEVEL））
INTO DecimalIp
FROM dual
CONNECT BY LEVEL <= 4;
RETURN DecimalIp;
END IF;
END Ip2Decimal;
$ b功能Decimal2Ip（IpDecimal IN NUMBER）RETURN VARCHAR2确定性是
IP VARCHAR2（16）;
Octet INTEGER;
v_IpDecimal INTEGER：= IpDecimal;
BEGIN
IF IpDecimal IS NULL THEN
RETURN NULL;
END IF;
IF IpDecimal> 2 ** 32 - 1 THEN
RAISE NUMERIC_OVERFLOW;
END IF;
for I in 1..4 LOOP
Octet：= TRUNC（v_IpDecimal / 256 **（4-i））;
v_IpDecimal：= v_IpDecimal - Octet * 256 **（4-i）;
IP：= IP ||'。'|| Octet;
END LOOP;
RETURN SUBSTR（IP，2）;
END Decimal2Ip;
功能Decimal2IPv6（IpDecimal IN NUMBER）RETURN VARCHAR2确定性是
IP VARCHAR2（40）;
Octet INTEGER;
v_IpDecimal NUMBER：= IpDecimal;
BEGIN
IF IpDecimal IS NULL THEN
RETURN NULL;
END IF;
IF IpDecimal> 2 ** 128 - 1 THEN
RAISE NUMERIC_OVERFLOW;
END IF;
for i in 1..8 LOOP
Octet：= TRUNC（v_IpDecimal / 65536 **（8-i））;
v_IpDecimal：= v_IpDecimal - Octet * 65536 **（8-i）;
IP：= IP ||'：'|| TO_CHAR（Octet，'fmXXXX'）;
END LOOP;
RETURN LOWER（SUBSTR（IP，2））;
END Decimal2IPv6; b
$ b示例： code> SELECT REGEXP_REPLACE（Decimal2IPv6（Ip2Decimal（'10 .85.79.96'）），'：0：'，'：ffff：'，1,3）
FROM dual;
0：0：0：0：0：ffff：a55：4f60
Looking for pl\sql (Oracle env.) conversion function which excepts a string as an input (IPV4 format) and returns IPV6 format , for example :
Send - 10.85.79.96 will return 0:0:0:0:0:ffff:a55:4f60
Thanks for the help.
解决方案
You can use this set of functions:
FUNCTION UncompressIpV6(Ip IN VARCHAR2) RETURN VARCHAR2 DETERMINISTIC IS
IpFull VARCHAR2(40);
len INTEGER := 7;
BEGIN
IF REGEXP_LIKE(Ip, '::') THEN
IpFull := REGEXP_REPLACE(REGEXP_REPLACE(Ip, '^::', '0::'), '::$', '::0');
IF REGEXP_LIKE(Ip, ':\d+\.\d+\.\d+\.\d+$') THEN
-- Mixed notation, e.g.: 0::FFFF:129.144.52.38
len := 6;
END IF;
WHILE REGEXP_COUNT(IpFull, ':') <= len LOOP
IpFull := REGEXP_REPLACE(IpFull, '::', ':0::');
END LOOP;
RETURN REGEXP_REPLACE(IpFull, '::', ':');
ELSE
RETURN Ip;
END IF;
END UncompressIpV6;
FUNCTION Ip2Decimal(IP IN VARCHAR2) RETURN NUMBER DETERMINISTIC IS
DecimalIp NUMBER := 0;
BEGIN
IF REGEXP_LIKE(IP, ':') THEN
IF REGEXP_LIKE(IP, '\d+\.\d+\.\d+\.\d+$') THEN
-- Mixed notation, e.g.: 0:0:0:0:0:FFFF:129.144.52.38
SELECT SUM(TO_NUMBER(REGEXP_SUBSTR(UncompressIpV6(IP), '[[:xdigit:]]+', 1, LEVEL), 'XXXX') * POWER(65536, 8-LEVEL))
INTO DecimalIp
FROM dual
CONNECT BY LEVEL <= 6;
SELECT DecimalIp + SUM(REGEXP_SUBSTR(REGEXP_SUBSTR(UncompressIpV6(IP), '\d+\.\d+\.\d+\.\d+$'), '\d+', 1, LEVEL) * POWER(256, 4-LEVEL))
INTO DecimalIp
FROM dual
CONNECT BY LEVEL <= 4;
RETURN DecimalIp;
ELSE
SELECT SUM(TO_NUMBER(REGEXP_SUBSTR(UncompressIpV6(IP), '[[:xdigit:]]+', 1, LEVEL), 'XXXX') * POWER(65536, 8-LEVEL))
INTO DecimalIp
FROM dual
CONNECT BY LEVEL <= 8;
RETURN DecimalIp;
END IF;
ELSE
SELECT SUM(REGEXP_SUBSTR(IP, '\d+', 1, LEVEL) * POWER(256, 4-LEVEL))
INTO DecimalIp
FROM dual
CONNECT BY LEVEL <= 4;
RETURN DecimalIp;
END IF;
END Ip2Decimal;
FUNCTION Decimal2Ip(IpDecimal IN NUMBER) RETURN VARCHAR2 DETERMINISTIC IS
IP VARCHAR2(16);
Octet INTEGER;
v_IpDecimal INTEGER := IpDecimal;
BEGIN
IF IpDecimal IS NULL THEN
RETURN NULL;
END IF;
IF IpDecimal > 2**32 - 1 THEN
RAISE NUMERIC_OVERFLOW;
END IF;
FOR i IN 1..4 LOOP
Octet := TRUNC(v_IpDecimal/256**(4-i));
v_IpDecimal := v_IpDecimal - Octet * 256**(4-i);
IP := IP ||'.'||Octet;
END LOOP;
RETURN SUBSTR(IP, 2);
END Decimal2Ip;
FUNCTION Decimal2IPv6(IpDecimal IN NUMBER) RETURN VARCHAR2 DETERMINISTIC IS
IP VARCHAR2(40);
Octet INTEGER;
v_IpDecimal NUMBER := IpDecimal;
BEGIN
IF IpDecimal IS NULL THEN
RETURN NULL;
END IF;
IF IpDecimal > 2**128 - 1 THEN
RAISE NUMERIC_OVERFLOW;
END IF;
FOR i IN 1..8 LOOP
Octet := TRUNC(v_IpDecimal/65536**(8-i));
v_IpDecimal := v_IpDecimal - Octet * 65536**(8-i);
IP := IP ||':'||TO_CHAR(Octet, 'fmXXXX');
END LOOP;
RETURN LOWER(SUBSTR(IP, 2));
END Decimal2IPv6;
Example:
SELECT REGEXP_REPLACE(Decimal2IPv6(Ip2Decimal('10.85.79.96')), ':0:', ':ffff:', 1, 3)
FROM dual;
0:0:0:0:0:ffff:a55:4f60
这篇关于PLSQL函数将IPV4转换为IPV6的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
查看全文
