Oracle技术：怎样在oracle中通过utl_http获得指定网页内容

会计考友

SET serveroutput ON SIZE 40000 　　DECLARE
　　v_text varchar2(100) := '试验%S已ok';--不能有空白
　　req    utl_http.req;
　　resp   utl_http.resp;
: ^* E, @% y; I( {　　value  VARCHAR2(1000);
　　BEGIN
　　v_text := replace(v_text,'%','%25');
/ f( h9 n' _) U4 {7 M　　v_text := replace(utl_encode.text_encode(v_text), '=', '%');
! Z$ D) j! z" U. |. _/ M　　req    := utl_http.begin_request('http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=' ||
8 S1 z/ T' {9 V$ J% I* E　　v_text || '&langpair=zh|en');
　　resp   := utl_http.get_response(req);
, K5 k; s* Y9 a7 m6 P5 A- u　　LOOP
　　utl_http.read_line(resp, value, TRUE);
6 B  `. ]# B& m8 W5 d/ G3 y$ J　　value := replace(value,'% S','%S');
: W* H) A$ F3 l: M/ D4 \　　value := replace(value,'{"responseData": {"translatedText":"','');
　　value := replace(value,'"}, "responseDetails": null, "responseStatus": 200}','');
　　dbms_output.put_line(value);
　　END LOOP;
% R% ^+ r: D, R. S2 e　　utl_http.end_response(resp);
　　EXCEPTION
4 i5 n; `1 K" ~0 _0 C　　WHEN utl_http.end_of_body THEN
0 A1 x; n! a' u6 G+ {: ^/ A" p　　utl_http.end_response(resp);
　　END;