oracle查询IP地域信息

declare
url varchar2(2000);
req utl_http.req;
resp utl_http.resp;
value  VARCHAR2(1000);
region VARCHAR2(50);
BEGIN
url:= 'http://www.youdao.com/smartresult-xml/search.s?type=ip\&q=25.238.158.9';
req:= utl_http.begin_request(url);
resp:= utl_http.get_response(req);
loop
utl_http.read_line(resp,value,TRUE);
IF instr(VALUE,'<location>') > 0 THEN
dbms_output.put_line('网站回复' || value);
IF instr(VALUE,' ') > 0 THEN
region := substr(VALUE,instr(VALUE,'>',1)+1,instr(VALUE,' ',2)-instr(VALUE,'>',2)-1);
ELSE
region := substr(VALUE,instr(VALUE,'>',1)+1,instr(VALUE,'<',2)-instr(VALUE,'>',2)-1);
END IF;
IF region = '' THEN
dbms_output.put_line('未知地址');
ELSE
dbms_output.put_line(region);
END IF;
END IF;
END loop;
utl_http.end_response(resp);
EXCEPTION
WHEN utl_http.end_of_body THEN
utl_http.end_response(resp);
end;
/