create or replace function inet_aton( p_str in varchar2 ) return
number
as
l_dot1 number := instr( p_str, ‘.’,1,1 );
l_dot2 number := instr( p_str, ‘.’,1,2 );
l_dot3 number := instr( p_str, ‘.’,1,3 );
begin
return
to_number(substr(p_str,1,l_dot1-1))*power(256,3)+
to_number(substr(p_str,l_dot1+1, l_dot2-l_dot1-1))*power(256,2)+
to_number(substr(p_str,l_dot2+1,l_dot3-l_dot2-1))*256+
to_number(substr(p_str,l_dot3+1));
end;
/
create or replace function inet_ntoa( ip_addr in integer ) return
string
as
begin
return
mod( trunc(ip_addr/256/256/256), 256 ) || ‘.’ ||
mod( trunc(ip_addr/256/256), 256 ) || ‘.’ ||
mod( trunc(ip_addr/256), 256 ) || ‘.’ [...]
