{"id":521,"date":"2014-10-01T14:40:11","date_gmt":"2014-10-01T06:40:11","guid":{"rendered":"http:\/\/www.royalwzy.com\/?p=521"},"modified":"2015-09-10T21:53:02","modified_gmt":"2015-09-10T13:53:02","slug":"oracle%e5%8c%85%e3%80%81%e5%87%bd%e6%95%b0%e3%80%81%e8%bf%87%e7%a8%8b%e7%9a%84%e5%8a%a0%e5%af%86%e8%a7%a3%e5%af%86","status":"publish","type":"post","link":"http:\/\/www.royalwzy.com\/?p=521","title":{"rendered":"Oracle\u5305\u3001\u51fd\u6570\u3001\u8fc7\u7a0b\u7684\u52a0\u5bc6\u548c\u89e3\u5bc6"},"content":{"rendered":"

\u9996\u5148\u6211\u4eec\u6765\u770b\u4e00\u4e0boracle\u5bf9\u5305\u3001\u51fd\u6570\u3001\u8fc7\u7a0b\u7684\u52a0\u5bc6<\/p>\n

oracle\u5185\u90e8\u63d0\u4f9b\u4e86\u4e24\u79cd\u52a0\u5bc6\u65b9\u5f0f<\/p>\n

\u6211\u4eec\u5148\u6765\u770b\u7b2c\u4e00\u79cd\uff1a<\/p>\n

\u5728\u6ca1\u6709\u5185\u7f6eOCI\u4e4b\u524d\uff0cORACLE\u53ea\u63d0\u4f9bWRAP\u64cd\u4f5c\u7cfb\u7edf\u5de5\u5177\u3002<\/p>\n

\u6211\u4eec\u6765\u7b80\u5355\u7684\u770b\u4e00\u4e2a\u4f8b\u5b50\uff1a<\/p>\n

SQL> ho<\/p>\n

[oracle@ucjmh ~]$ vi function.sql<\/p>\n

SQL> ho cat function.sql<\/p>\n

create or replace function dl2ml(hy in varchar)<\/p>\n

return varchar<\/p>\n

as<\/p>\n

x varchar(2);<\/p>\n

begin<\/p>\n

select<\/p>\n

case<\/p>\n

when hy >=’01’ and hy<= ’05’ then 1<\/p>\n

when hy >=’06’ and hy<= ’11’ then 2<\/p>\n

when hy >=’13’ and hy<= ’43’ then 3<\/p>\n

when hy >=’44’ and hy<= ’46’ then 4<\/p>\n

when hy >=’47’ and hy<= ’50’ then 5<\/p>\n

when hy >=’51’ and hy<= ’59’ then 6<\/p>\n

when hy >=’60’ and hy<= ’62’ then 7<\/p>\n

when hy\u00a0 =’63’ or\u00a0 hy = ’65’ then 8<\/p>\n

when hy >=’66’ and hy<= ’67’ then 9<\/p>\n

when hy >=’68’ and hy<= ’71’ then 10<\/p>\n

when hy >=’72’ and hy<= ’72’ then 11<\/p>\n

when hy >=’73’ and hy<= ’74’ then 12<\/p>\n

when hy >=’75’ and hy<= ’78’ then 13<\/p>\n

when hy >=’79’ and hy<= ’81’ then 14<\/p>\n

when hy >=’82’ and hy<= ’83’ then 15<\/p>\n

when hy >=’84’ and hy<= ’84’ then 16<\/p>\n

when hy >=’85’ and hy<= ’87’ then 17<\/p>\n

when hy >=’88’ and hy<= ’92’ then 18<\/p>\n

when hy >=’93’ and hy<= ’98’ then 19<\/p>\n

else null<\/p>\n

end<\/p>\n

into x from dual;<\/p>\n

return x;<\/p>\n

end;<\/p>\n

\/<\/p>\n

\u6211\u4eec\u9996\u5148\u521b\u59cb\u4e00\u4e2a\u6587\u4ef6 \u91cc\u9762\u662f\u4e00\u4e2a\u7b80\u5355\u7684\u51fd\u6570<\/p>\n

\u7136\u540e\u4f7f\u7528\u64cd\u4f5c\u7cfb\u7edf\u7ea7\u522b\u7684\u547d\u4ee4\u8fdb\u884c\u52a0\u5bc6<\/p>\n

SQL> @function.sql<\/p>\n

Function created.<\/p>\n

SQL> ho<\/p>\n

[oracle@ucjmh ~]$ wrap iname=function.sql oname=function.pld<\/p>\n

PL\/SQL Wrapper: Release 11.2.0.3.0- Production on Fri May 01 00:31:44 2015<\/p>\n

Copyright (c) 1993, 2009, Oracle.\u00a0 All rights reserved.<\/p>\n

Processing function.sql to function.pld<\/p>\n

[oracle@ucjmh ~]$ cat function.pld<\/p>\n

create or replace function dl2ml wrapped<\/p>\n

a000000<\/p>\n

369<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

8<\/p>\n

335 199<\/p>\n

ndEQSpIvhV202FWf2jLyxpFnjQMwg1zrr0hGyo5EUOI6GMTHyUnF4S3rRsXrfy11DmGfmkPS<\/p>\n

tcQ9Nue\/OhW9vrvTuRMesVKf0vjY+UGcxijwSrxfuyzUD1jEHovrR0cVM1dx5fbGGc3GfbTg<\/p>\n

SQVk2HhtAZooHn1TQ80riTTKhkALI+3MzBisPE7I1t7HakJ8XEgwkBPoy+j\/Luup3tbe3YVo<\/p>\n

42UE9\/37WALL6NcuuovoO6z3+lA4SokDsMd7LmhMrwBLEtXWs3DDSJGKB5yt8ZQOBOOE69Oj<\/p>\n

iS6iaQ2OqcOiUA13rQk+tok7yrcY0NRreURk6AkbTbo1G5T2BtMv0hpeRGlTQJ71g9yC2mKn<\/p>\n

aN8uR0U38EiQ3rCYTyTetEd3lapLv8FC\/psoXEq+ww==<\/p>\n

\/<\/p>\n

[oracle@ucjmh ~]$ exit<\/p>\n

exit<\/p>\n

SQL> @funtion.pld<\/p>\n

SP2-0310: unable to open file “funtion.pld”<\/p>\n

SQL> @function.pld<\/p>\n

Function created.<\/p>\n

SQL> select dl2ml(’45’) from dual;<\/p>\n

DL2ML(’45’)<\/p>\n

——————————————————————————–<\/p>\n

4<\/p>\n

SQL> select text from user_source where name=’DL2ML’;<\/p>\n

TEXT<\/p>\n

——————————————————————————–<\/p>\n

function dl2ml wrapped<\/p>\n

a000000<\/p>\n

369<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

8<\/p>\n

335 199<\/p>\n

ndEQSpIvhV202FWf2jLyxpFnjQMwg1zrr0hGyo5EUOI6GMTHyUnF4S3rRsXrfy11DmGfmkPS<\/p>\n

tcQ9Nue\/OhW9vrvTuRMesVKf0vjY+UGcxijwSrxfuyzUD1jEHovrR0cVM1dx5fbGGc3GfbTg<\/p>\n

SQVk2HhtAZooHn1TQ80riTTKhkALI+3MzBisPE7I1t7HakJ8XEgwkBPoy+j\/Luup3tbe3YVo<\/p>\n

42UE9\/37WALL6NcuuovoO6z3+lA4SokDsMd7LmhMrwBLEtXWs3DDSJGKB5yt8ZQOBOOE69Oj<\/p>\n

iS6iaQ2OqcOiUA13rQk+tok7yrcY0NRreURk6AkbTbo1G5T2BtMv0hpeRGlTQJ71g9yC2mKn<\/p>\n

aN8uR0U38EiQ3rCYTyTetEd3lapLv8FC\/psoXEq+ww==<\/p>\n

\u63a5\u4e0b\u6765\u6211\u4eec\u518d\u6765\u770b\u7b2c\u4e8c\u79cd\u52a0\u5bc6\u65b9\u5f0f\uff1a<\/p>\n

\u5728ORACLE 10.2\u4e4b\u540e\uff0cORACLE\u63d0\u4f9b\u4e86\u5185\u7f6e\u7684OCI\uff0c\u4e3a\u7528\u6237\u63d0\u4f9b\u4ee3\u7801\u52a0\u5bc6\uff0c\u5176\u4e2d\uff0cDBMS_DDL.WRAP\u548cDBMS_DDL.CREATE_WRAPPED\u5206\u522b\u63d0\u4f9b\u4e86\u52a0\u5bc6\u3001\u52a0\u5bc6\u5e76\u4e14\u521b\u5efa\u529f\u80fd<\/p>\n

\u8fd8\u662f\u6765\u770b\u4e2a\u4f8b\u5b50\uff1a<\/p>\n

DBMS_DDL.WRAP\u4f7f\u7528\u793a\u4f8b<\/p>\n

1\uff1a\u6587\u672c\u52a0\u5bc6<\/p>\n

select dbms_ddl.wrap(‘create or replace procedure TESTPRO is begin null end;’) from dual;<\/p>\n

DBMS_DDL.WRAP(‘CREATEORREPLACEPROCEDURETESTPROISBEGINNULLEND;’)<\/p>\n

————————————————————–<\/p>\n

create or replace procedure TESTPRO wrapped<\/p>\n

a000000<\/p>\n

369<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

7<\/p>\n

25 59<\/p>\n

8g4YR51zp6Rm0t2Q5m7K9QrNB6wwg5nnm7+fMr2ywFznUrLLveeb6qV0K7jAMv7SXqWZgQjM<\/p>\n

uIHHLcmmpmq0vfo=<\/p>\n

2\uff1a\u5df2\u7ecf\u521b\u5efa\u8fc7\u7684\u4ee3\u7801\u5bf9\u8c61\u52a0\u5bc6<\/p>\n

\u9996\u5148\u5148\u521b\u5efa\u4e00\u4e2a\u8fc7\u7a0b<\/p>\n

SQL> create or replace procedure TESTPRO1 is<\/p>\n

V_str \u00a0 varchar2(100);<\/p>\n

begin<\/p>\n

v_str:=’This is\u00a0 string.’;<\/p>\n

dbms_output.put_line(v_str);<\/p>\n

end TESTPRO1;<\/p>\n

\/<\/p>\n

Procedure created.<\/p>\n

\u7136\u540e \u4ece\u6570\u636e\u5e93\u83b7\u53d6\u6e90\u7801 \u5e76\u4e14\u52a0\u5bc6<\/p>\n

SQL> DECLARE<\/p>\n

l_source\u00a0 sys.DBMS_SQL.VARCHAR2A;<\/p>\n

l_wrap\u00a0 \u00a0 sys.DBMS_SQL.VARCHAR2A;<\/p>\n

BEGIN<\/p>\n

SELECT case line<\/p>\n

when 1 then ‘Create or replace ‘||Type|| ‘ ‘||text<\/p>\n

else TEXT<\/p>\n

end case\u00a0 bulk collect into l_source from dba_source where name=’TESTPRO1’ ORDER BY LINE;<\/p>\n

 <\/p>\n

l_wrap := SYS.DBMS_DDL.WRAP(ddl => l_source,<\/p>\n

lb\u00a0 => 1,<\/p>\n

ub\u00a0 => l_source.count);<\/p>\n

FOR i IN 1 .. l_wrap.count LOOP<\/p>\n

DBMS_OUTPUT.put_line(l_wrap(i));<\/p>\n

END LOOP;<\/p>\n

END;<\/p>\n

\/\u00a0 2\u00a0 \u00a0 3\u00a0 \u00a0 4\u00a0 \u00a0 5\u00a0 \u00a0 6\u00a0 \u00a0 7\u00a0 \u00a0 8\u00a0 \u00a0 9 \u00a0 10 \u00a0 11 \u00a0 12 \u00a0 13 \u00a0 14 \u00a0 15 \u00a0 16 \u00a0 17<\/p>\n

Create or replace PROCEDURE procedure wrapped<\/p>\n

a000000<\/p>\n

369<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

7<\/p>\n

ab<\/p>\n

c6<\/p>\n

wET87k8GVIxXUUglEZEexfhS\/xAwg5nnm7+fMr2ywFwWFpeu3C4+YvJc51Kyy73nm3jDpXSL<\/p>\n

CabWS86PyMovzQRdiu4EkRo4EXAO3rL39cAy\/tLW5YQJeQEKHPH3k9im<\/p>\n

op6VbOlYQikj\/DyF<\/p>\n

l3Fuz9aGc4SE4eaE0qlXGcbrclwd2JTJwqwKT5lofzx0pkJtxUQ=<\/p>\n

PL\/SQL procedure successfully completed.<\/p>\n

\u6ce8\uff1a<\/p>\n

dbms_sql.varchar2a\u63d0\u4f9b\u6700\u5927\u4e3a\u6bcf\u884c32k\u7684\u652f\u6301<\/p>\n

dbms_sql.varchar2s\u63d0\u4f9b\u6bcf\u884c256\u5b57\u8282\u7684\u652f\u6301<\/p>\n

ORACLE 10.2.0.1\u53ef\u80fd\u4f1a\u51fa\u73b022921 bug.<\/p>\n

dbms_ddl.create_wrapped\u540c\u4e0a\u4e00\u6837\uff0c\u53ea\u662f\u5f62\u6210\u52a0\u5bc6\u4e4b\u540e\uff0c\u8fdb\u884c\u521b\u5efa<\/p>\n

\u8fd9\u662foracle\u63d0\u4f9b\u7684\u4e24\u79cd\u52a0\u5bc6\u7684\u65b9\u5f0f\u00a0 \u4f46\u662fo\u5e76\u6ca1\u6709\u63d0\u4f9b\u89e3\u5bc6\u7684\u65b9\u5f0f o\u5728rdbms\u76ee\u5f55\u4e0b\u4e5f\u6709\u5927\u91cf\u7684pld\u7684\u6587\u4ef6 \u53ef\u80fd\u662f\u4e0d\u60f3\u7834\u89e3\u5427<\/p>\n

\u4f46\u662f\u806a\u660e\u7684\u4f7f\u7528\u8005\u5df2\u7ecf\u7814\u7a76\u51fa\u6765\u4e86\u600e\u4e48\u7834\u89e3\u00a0 \u6211\u4eec\u6765\u770b\u4e00\u4e0b\uff1a<\/p>\n

\u9996\u5148\u6211\u4eec\u8981\u660e\u767d oracle\u662f\u600e\u4e48\u52a0\u5bc6\u7684<\/p>\n

Oracle\u52a0\u5bc6\u7684\u539f\u7406\u5c31\u662f\u5148\u5bf9\u6e90\u7801\u8fdb\u884clz\u538b\u7f29lzstr\uff0c\u7136\u540e\u5bf9\u538b\u7f29\u6570\u636e\u8fdb\u884cSHA-1\u8fd0\u7b97\u5f97\u523040\u4f4d\u7684\u52a0\u5bc6\u4e32shstr\uff0c\u7136\u540e\u5c06\u52a0\u5bc6\u4e32\u4e0e\u538b\u7f29\u4e32\u62fc\u63a5\u5f97\u5230shstr+lzstr\uff0c\u7136\u540e\u5bf9\u62fc\u63a5\u540e\u7684\u5b57\u7b26\u4e32\u8fdb\u884cOracle\u53cc\u5b57\u7b26\u8f6c\u6362\uff08\u8f6c\u6362\u8868\uff09\u3002\u6700\u540e\u5c06\u8f6c\u6362\u540e\u7684\u5b57\u7b26\u4e32\u8fdb\u884cbase64\u7f16\u7801\uff0c\u6700\u7ec8\u5f97\u5230wrap\u7684\u52a0\u5bc6\u4e32\u3002<\/p>\n

\u65e2\u7136\u6211\u4eec\u901a\u8fc7\uff33\uff31\uff2c\u53ef\u4ee5\u8fd9\u6837\u5bf9\u67d0\u8fc7\u7a0b\u505aDBMS_DDL.WRAP\u52a0\u5bc6\u53ef\u4ee5\u5f97\u5230\u5bc6\u6587<\/p>\n\n\n\n
\u90a3\u4e48\u5bf9\u8fd9\u90e8\u4efd\u5bc6\u6587\u7684\u6b63\u6587\u90e8\u4efd\u8fdb\u884c\uff22\uff21\uff33\uff25\uff16\uff14\u89e3\u7801\u7684\u503c\u4e0e\u672a\u52a0\u5bc6\u6b63\u6587\u76f4\u63a5\u8fdb\u884c\uff2c\uff3a\u538b\u7f29\u540e\u7684\u503c\u5fc5\u7136\u662f\u4e00\u4e00\u5bf9\u5e94\u7684\uff0c\u4e14\u4e24\u4e2a\u4e32\u7684\u957f\u5ea6\u4e5f\u662f\u76f8\u7b49\u7684\u5bf9\u5bc6\u6587<\/p>\n

\u8fdb\u884c\uff22\uff21\uff33\uff25\uff16\uff14\u89e3\u7801\u540e\uff0c\u5c06\u5bf9\u5e94\u7684\u5bc6\u6587\u7684\u6b63\u6587\u90e8\u4efd\u6309\u5b57\u8282\u66ff\u6362\u6210\u66ff\u6362\u8868\u4e2d\u9884\u5148\u7b97\u51fa\u6765\u7684\u5b57\u8282\uff0c\u6700\u540e\u76f4\u63a5\u6309\uff2c\uff3a\u7b97\u6cd5\u8fdb\u884c\u89e3\u538b\uff0c<\/p>\n

\u66ff\u6362\u8868\u6b63\u786e\u7684\u60c5\u51b5\u4e0b\uff0c\u660e\u6587\u5c31\u5e94\u8be5\u51fa\u6765\u4e86\u3002\u901a\u8fc7\u8fd9\u79cd\u5047\u8bbe\uff0c\u80af\u5b9a\u5c31\u80fd\u5f97\u5230\u66ff\u6362\u8868\uff0c\u66ff\u6362\u8868\u662f\u6309\u5b57<\/p>\n

\u8282\u6765\u8ba1\u7b97\u7684\uff0c\u6240\u4ee5\u5e94\u8be5\u6709\u4e8c\u4e2a\u5217\uff0c\u5176\u4e2d\u4e00\u5217\u4ee3\u8868\uff22\uff21\uff33\uff25\uff16\uff14\u89e3\u7801\u540e\u7684\u5b57\u8282\u503c\uff08\u5341\u516d\u8fdb\u5236\uff10\uff10\u5230\uff26\uff26\uff09\uff0c\u53e6\u4e00\u5217\u4ee3\u8868\u66ff\u6362\u5217\uff08\uff22\uff21\uff33\uff25\uff16\uff14\u5217\u4e0d\u80fd\u51fa\u73b0\u91cd\u590d\u503c\u662f\u4e00\u4e2a\u524d\u63d0\uff09\u3002<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n\n\n\n
\uff22\uff21\uff33\uff25\uff16\uff14\u7f16\u7801\u5730\u7403\u4eba\u90fd\u77e5\u9053\uff0c\u5728\uff2f\uff32\uff21\uff23\uff2c\uff25\u4e2d\u6709\u73b0\u5b58\u7684\u5de5\u5177\u5305\u8fdb\u884c\u7f16\u7801\u548c\u89e3\u7801\uff0c\u6211\u4eec\u5c06\u7528\u5230\uff22\uff21\uff33\uff25\uff16\uff14\u7684\u89e3\u7801\uff0c\u5177\u4f53\u5305\u662f\uff1asys.utl_encode.base64_decode\u3002\u7528\u7684\u65f6\u5019\u8fd8\u9700\u8981\u53e6\u4e00\u4e2a\u8fc7\u7a0b\u6765\u5c06\u5b57\u7b26\u4e32\u8f6c\u6362\u4e3a\uff32\uff21\uff37\u683c\u5f0f\uff1asys.utl_raw.cast_to_raw<\/p>\n

\uff2c\uff3a\u538b\u7f29\u5f88\u5e38\u89c1\uff0c\u4e0d\u8fc7\u61c2\u5f97\u5185\u90e8\u7b97\u6cd5\u7684\u4eba\u5f88\u5c11\uff0c\uff2f\uff32\uff21\uff23\uff2c\uff25\u4e2d\u4e5f\u6709\u73b0\u5b58\u7684\u5de5\u5177\u5305\uff0c\u6211\u8fd9\u91cc\u7528\u7684\u662f\u8001\u5916\u7684\u4e00\u4e2a\uff2a\uff21\uff36\uff21\u5305\u3002\u5728<\/p>\n

\u4f7f\u7528\u8fd9\u4e2a\uff2c\uff3a\u5de5\u5177\u5305\u65f6\uff0c\u6d89\u53ca\u5230\u4e00\u4e2a\u538b\u7f29\u7ea7\u522b\u53c2\u6570\uff0c\u8fd9\u4e2a\u7b49\u7ea7\u53c2\u6570\u4e0d\u4e00\u6837\uff0c\u538b\u7f29\u5f97\u5230\u7684\u5b57\u7b26\u4e32\u5b8c\u5168\u4e00\u4e0d\u6837\u3002\u6709\u4eba\u53ef\u80fd\u8981\u95ee\uff0c\u8fd9\u6837\u641e<\/p>\n

\u5c82\u4e0d\u662f\u6ca1\u6cd5\u5f97\u5230\u66ff\u6362\u8868\u4e86\u5417\uff1f\u662f\u7684\uff0c\u4f46\u4e5f\u4e0d\u5b8c\u5168\u6b63\u786e\u3002\u56e0\u4e3a\u53ef\u4f9b\u9009\u62e9\u7684\u7b49\u7ea7\u53c2\u6570\u6709\u9650\uff0c\u4ffa\u4eec\u8fd8\u80fd\u4ece\uff10\u7b49\u7ea7\u5f00\u59cb\u4e00\u4e2a\u4e00\u4e2a\u8fdb\u884c\u6d4b\u8bd5\uff0c<\/p>\n

\u770b\u5230\u5e95\u54ea\u4e2a\u53c2\u6570\u662f\uff2f\uff32\uff21\uff23\uff2c\uff25\u7cfb\u7edf\u7528\u7684\u6765\uff37\uff32\uff21\uff30\u7684\u3002\u563f\u563f\uff0c\uff2f\uff32\uff21\uff23\uff2c\uff25\u7528\u7684\u662f\u201c\uff19\u201d\u7b49\u7ea7\u3002<\/p>\n

\u521b\u5efa\u8fc7\u7a0b\u6216\u5305\u65f6\u5982\u679c\u6ca1\u6709\uff23\uff32\uff25\uff21\uff34\uff25\u90e8\u4efd\uff0c\uff2f\uff32\uff21\uff23\uff2c\uff25\u80af\u5b9a\u8981\u62a5\u9519\uff1b\u540c\u6837DBMS_DDL.WRAP\u4e5f\u4e0d\u80fd\u7f3a\u5c11\u8fd9\u4e2a\u201ccreate\u201d\uff0c<\/p>\n

\u5426\u5219\u5c31\u8981\u62a5\u9519\u3002\u4f46\u5bf9\u4e8e\u8fc7\u7a0b\u6216\u5305\u7684\uff33\uff2f\uff35\uff32\uff23\uff25\uff0c\u67e5\u9605\u7cfb\u7edf\u89c6\u56feDBA_SOURCE\u7684\uff34\uff25\uff38\uff34\u5217\u5c31\u77e5\u9053\u4e86\uff0c\u80af\u5b9a\u6ca1\u6709\uff23\uff32\uff25\uff21\uff34\uff25\u8fd9\u4e00\u53e5\u3002<\/p>\n\n\n\n
\u8bf4\u5230\u5bc6\u6587\u7684\u6b63\u6587\u90e8\u4efd\uff0c\u9996\u5148\u8981\u770b\u4e0b\u9762\u7684\u4f8b\u5b50\uff1aSQL>select dbms_ddl.wrap(‘create procedure a’) from dual;<\/p>\n

create procedure a wrapped<\/p>\n

a000000<\/p>\n

354<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

abcd<\/p>\n

7<\/p>\n

c 38<\/p>\n

8BgMHdmA3Qg9IbJmntlZoZQoHwcwg5nnm7+fMr2ywFxakaamb40d1Q=<\/p>\n

\u8fd9\u91cc\u8981\u89e3\u91ca\u4e00\u4e0b\uff0c\u52a0\u5bc6\u540e\u7684\u4ee3\u7801\u4e2d\uff13\uff15\uff14\u4e0e\uff24\uff22\u7684\u7248\u672c\u6709\u5173\uff0cabcd\u540e\u7684\uff17\u4e0e\u521b\u5efa\u7684\u5bf9\u8c61\u7c7b\u578b\u6709\u5173\uff0c\u4e5f\u5c31\u662f\uff17\u4e3a\u5b58\u50a8\u8fc7\u7a0b\uff0c\u53e6\u5916\u7684c 38\u6709\u5176\u4ed6\u610f\u4e49\uff0c\u8fd9\u91cc\u5c31\u4e0d\u591a\u8bf4\u4e86\u3002\u4ece8BgMH\u5f00\u59cb\uff0c\uff22\uff21\uff33\uff25\uff16\uff14\u89e3\u7801\u540e\u7684\u524d\u4e8c\u5341\u4e2a\u5b57\u8282\u662fSHA1-HASH\u503c\uff0c\u6240\u4ee5\u89e3\u7801\u540e\u7684\u7b2c\u4e8c\u5341\u4e00\u4e2a\u5b57\u8282\u5f00\u59cb\u5c31\u662f\u6b63\u6587\u4e86<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n\n\n\n
\n\n\n\n
\u4e3a\u4e86\u4e0b\u4e00\u8282\u7684\u5b9e\u8df5\u6d3b\u52a8\uff0c\u563f\u563f\uff0c\u6211\u4eec\u5148\u628a\uff2a\uff21\uff36\uff21\u5305\u521b\u5efa\u597d\uff0c\u7528\u4ee5\u8fdb\u884cLZ\u538b\u7f29\u4e0e\u89e3\u538b\uff0c\u5982\u4e0b\u6240\u793a\uff08\u5168\u90e8\u7528\uff33\uff39\uff33\u7528\u6237\u6765\u505a\uff09\uff1acreate or replace java source named UNWRAPPER<\/p>\n

as<\/p>\n

import java.io.*;<\/p>\n

import java.util.zip.*;<\/p>\n

public class UNWRAPPER<\/p>\n

{<\/p>\n

public static String Inflate( byte[] src )<\/p>\n

{<\/p>\n

try<\/p>\n

{<\/p>\n

ByteArrayInputStream bis = new ByteArrayInputStream( src );<\/p>\n

InflaterInputStream iis = new InflaterInputStream( bis );<\/p>\n

StringBuffer sb = new StringBuffer();<\/p>\n

for( int c = iis.read(); c != -1; c = iis.read() )<\/p>\n

{<\/p>\n

sb.append( (char) c );<\/p>\n

}<\/p>\n

return sb.toString();<\/p>\n

} catch ( Exception e )<\/p>\n

{<\/p>\n

}<\/p>\n

return null;<\/p>\n

}<\/p>\n

public static byte[] Deflate( String src, int quality )<\/p>\n

{<\/p>\n

try<\/p>\n

{<\/p>\n

byte[] tmp = new byte[ src.length() + 100 ];<\/p>\n

Deflater defl = new Deflater( quality );<\/p>\n

defl.setInput( src.getBytes( “UTF-8” ) );<\/p>\n

defl.finish();<\/p>\n

int cnt = defl.deflate( tmp );<\/p>\n

byte[] res = new byte[ cnt ];<\/p>\n

for( int i = 0; i < cnt; i++ )<\/p>\n

res = tmp;<\/p>\n

String hello = new String(res.toString().getBytes(“iso8859-1”), “GBK”);<\/p>\n

return hello;<\/p>\n

return res;<\/p>\n

} catch ( Exception e )<\/p>\n

{<\/p>\n

}<\/p>\n

return null;<\/p>\n

}<\/p>\n

}<\/p>\n

\/<\/p>\n

alter java source UNWRAPPER compile<\/p>\n

\/<\/p>\n

\u7136\u540e\u7528\u5305\u628aJAVA\u58f0\u660e\u8fdb\u6765\uff1a<\/p>\n

create or replace package amosunwrapper<\/p>\n

is<\/p>\n

function deflate( src in varchar2 )<\/p>\n

return raw;<\/p>\n

function deflate( src in varchar2, quality in number )<\/p>\n

return raw;<\/p>\n

function inflate( src in raw )<\/p>\n

return varchar2;<\/p>\n

end;<\/p>\n

\/<\/p>\n

create or replace package body amosunwrapper<\/p>\n

is<\/p>\n

function deflate( src in varchar2 )<\/p>\n

return raw<\/p>\n

is<\/p>\n

begin<\/p>\n

return deflate( src, 6 );<\/p>\n

end;<\/p>\n

function deflate( src in varchar2, quality in number )<\/p>\n

return raw<\/p>\n

as language java<\/p>\n

name ‘UNWRAPPER.Deflate( java.lang.String, int ) return byte[]’;<\/p>\n

function inflate( src in raw )<\/p>\n

return varchar2<\/p>\n

as language java<\/p>\n

name ‘UNWRAPPER.Inflate( byte[] ) return java.lang.String’;<\/p>\n

end;<\/p>\n

\/<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n\n\n\n
\u521b\u5efa\u597d\u4e86\u5de5\u5177\uff0c\u6211\u4eec\u5148\u6765\u770b\u770b\u4e0b\u9762\u7684SQL\uff1awith src AS ( select ‘PACKAGE a’ txt\u00a0\u00a0from dual\u00a0 \u00a0),<\/p>\n

wrap as\u00a0 \u00a0( select src.txt , dbms_ddl.wrap( ‘create ‘ || src.txt ) wrap\u00a0\u00a0from src\u00a0\u00a0),<\/p>\n

subst as\u00a0\u00a0(select substr( utl_encode.base64_decode( utl_raw.cast_to_raw(rtrim( substr( wrap.wrap, instr( wrap.wrap, chr( 10 ), 1, 20 ) + 1 ), chr(10) )\u00a0\u00a0) ), 41 ) x,<\/p>\n

amosunwrapper.deflate( wrap.txt || chr(0), 9 ) d<\/p>\n

from wrap\u00a0\u00a0)<\/p>\n

select substr( x, r * 2 – 1, 2 )\u00a0\u00a0c_base64,<\/p>\n

substr( d, r * 2 – 1, 2 )\u00a0\u00a0c_translatecode<\/p>\n

from subst\u00a0\u00a0, ( select rownum r from dual connect by rownum <= ( select length( x ) \/ 2 from subst ) );<\/p>\n

\u7ed3\u679c\u5982\u4e0b\uff1a<\/p>\n

C_BASE64 C_TRANSLATECODE<\/p>\n

30 78<\/p>\n

83 DA<\/p>\n

99 0B<\/p>\n

B8 70<\/p>\n

F5 74<\/p>\n

33 F6<\/p>\n

9F 76<\/p>\n

F5 74<\/p>\n

BF 77<\/p>\n

5C 55<\/p>\n

5A 48<\/p>\n

91 64<\/p>\n

A6 00<\/p>\n

A6 00<\/p>\n

CB 0E<\/p>\n

C4 B7<\/p>\n

E1 02<\/p>\n

48 6E<\/p>\n

\u901a\u8fc7\u5bf9\u7ed3\u679c\u7684\u6392\u5e8f\uff0c\u6ca1\u6709\u51fa\u73b0\u540c\u4e00\u4e2a\uff22\uff21\uff33\uff25\uff16\uff14\u7f16\u7801\u5bf9\u5e94\u4e0d\u540c\u7684\u5341\u516d\u8fdb\u5236\u7684\u60c5\u51b5\uff0c\u56e0\u6b64\u6211\u4eec\u77e5\u9053\u4e86\u53ef\u4ee5\u7528\u8fd9\u4e2a\uff33\uff31\uff2c\u4e3a\u57fa\u7840\uff0c\u901a\u8fc7\u7528\u4e0d\u540c\u7684\uff33\uff2f\uff35\uff32\uff23\uff25\u4e32\u6765\u4ea7\u751f\u66ff\u6362\u8868\u7684\u5185\u5bb9\u3002<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n\n\n\n
\u9996\u5148\u5efa\u4e00\u4e2a\u8868\u6765\u5b58\u50a8\u66ff\u6362\u8868\u7684\u5185\u5bb9,\u7136\u540e\u5199\u4e00\u6bb5PLSQL\u5757\u6765\u751f\u6210\u66ff\u6362\u8868\u7684\u5185\u5bb9:<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n\n\n\n
CREATE TABLE SYS.IDLTRANSLATE(<\/p>\n

C_BASE64DECODE\u00a0\u00a0VARCHAR2(2) NOT NULL,<\/p>\n

C_LZDEFLATECODE VARCHAR2(2)\u00a0 \u00a0\u00a0\u00a0NULL<\/p>\n

)<\/p>\n

\/<\/p>\n

declare<\/p>\n

nCnt integer;<\/p>\n

nLoop integer;<\/p>\n

nSLoop integer;<\/p>\n

nCharmax integer;<\/p>\n

nCharmin\u00a0\u00a0integer;<\/p>\n

vChar\u00a0 \u00a0\u00a0\u00a0Varchar2(3);<\/p>\n

cursor getchar is<\/p>\n

with src AS ( select ‘PACKAGE ‘||vChar txt\u00a0\u00a0from dual\u00a0 \u00a0),<\/p>\n

wrap as\u00a0 \u00a0( select src.txt , dbms_ddl.wrap( ‘create ‘ || src.txt ) wrap\u00a0\u00a0from src\u00a0\u00a0),<\/p>\n

subst as\u00a0\u00a0(select substr( utl_encode.base64_decode( utl_raw.cast_to_raw(rtrim( substr( wrap.wrap, instr( wrap.wrap, chr( 10 ), 1, 20 ) + 1 ), chr(10) )\u00a0\u00a0) ), 41 ) x,<\/p>\n

amosunwrapper.deflate( wrap.txt || chr(0), 9 ) d<\/p>\n

from wrap\u00a0\u00a0)<\/p>\n

select\u00a0\u00a0substr( x, r * 2 – 1, 2 )\u00a0\u00a0xr ,<\/p>\n

substr( d, r * 2 – 1, 2 )\u00a0\u00a0dr<\/p>\n

from subst\u00a0\u00a0, ( select rownum r from dual connect by rownum <= ( select length( x ) \/ 2 from subst ) );<\/p>\n

begin<\/p>\n

nCharmax:=97;<\/p>\n

nCharmin:=122;<\/p>\n

For nLoop In 97..122 Loop<\/p>\n

For nSloop In 0..99 Loop<\/p>\n

vChar := chr(nLoop)||to_char(nSloop);<\/p>\n

For abc In getchar Loop<\/p>\n

Select Count(*) Into nCnt From sys.idltranslate WHERE c_base64decode = abc.xr;<\/p>\n

If nCnt < 1 Then<\/p>\n

Insert INTO sys.idltranslate VALUES (abc.xr,abc.dr);<\/p>\n

Commit;<\/p>\n

Else<\/p>\n

Select Count(*) Into ncnt From sys.idltranslate WHERE c_base64decode = abc.xr AND c_lzdeflatecode=abc.dr;<\/p>\n

If nCnt < 1 Then<\/p>\n

DBMS_OUTPUT.PUT_LINE(‘wrong orginal char:’||vchar||’\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0hex base64:’||abc.xr);<\/p>\n

End If;<\/p>\n

End If;<\/p>\n

End Loop;<\/p>\n

End Loop;<\/p>\n

End Loop;<\/p>\n

end;<\/p>\n

\u8fd0\u884c\u4e0a\u9762\u8fd9\u6bb5\uff33\uff31\uff2c\u5927\u6982\u4f1a\u4ea7\u751f\uff11\u767e\u591a\u6761\u8bb0\u5f55\uff0c\u8fd8\u672a\u8fbe\u523000-FF\u603b\u5171256\u6761\u8bb0\u5f55\u7684\u8981\u6c42\uff0c\u5efa\u8bae\u66ff\u6362<\/p>\n

select ‘PACKAGE ‘||vChar txt\u00a0\u00a0from dual\u00a0 \u00a0\u4e2d\u7684PACKAGE\u5173\u5065\u5b57\u4e3aprocedure\u6216\u8005function\u7c7b\u4f3c\u7684\uff0c\u7ee7\u7eed\u8fd0\u884c\u76f4\u5230\u66ff\u6362\u8868\u4e2d\u6709\u4e0d\u91cd\u590d\u7684256\u6761\u8bb0\u5f55\u4e3a\u6b62\u3002<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

\u7136\u540e\u63a5\u4e0b\u6765\u770b\u4e00\u4e2a\u7cfb\u7edf\u5305<\/p>\n

SQL> set serveroutput on;<\/p>\n

Declare<\/p>\n

vWrappedtext\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Varchar2(32767);<\/p>\n

vChar\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Varchar2(2);<\/p>\n

vRepchar\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Varchar2(2);<\/p>\n

vLZinflatestr\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Varchar2(32767);<\/p>\n

nLen\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Integer;<\/p>\n

nLoop\u00a0 \u00a0 \u00a0 \u00a0 Integer;<\/p>\n

nCnt\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Integer;<\/p>\n

Begin<\/p>\n

select substr( utl_encode.base64_decode( utl_raw.cast_to_raw(rtrim( substr( TEXT, instr( TEXT, chr( 10 ), 1, 20 ) + 1 ), chr(10) )\u00a0 ) ), 41 ) x<\/p>\n

Into vWrappedtext<\/p>\n

from DBA_SOURCE<\/p>\n

Where owner=’SYS’<\/p>\n

And Name = ‘DBMS_MONITOR’<\/p>\n

And Type=’PACKAGE BODY’ ;<\/p>\n

–DBMS_OUTPUT.PUT_LINE(vWrappedtext);<\/p>\n

nLen := Length(vWrappedtext)\/2 – 1;<\/p>\n

vLZinflatestr :=”;<\/p>\n

For nLoop In 0..nLen Loop<\/p>\n

vChar := Substrb(vWrappedtext,nLoop*2+1,2);<\/p>\n

SelectSQL> \u00a0 2\u00a0 \u00a0 3\u00a0 \u00a0 4\u00a0 \u00a0 5\u00a0 \u00a0 6\u00a0 \u00a0 7\u00a0 \u00a0 8\u00a0 \u00a0 9 \u00a0 10 \u00a0 11 \u00a0 12 \u00a0 13 \u00a0 14 \u00a0 15 \u00a0 16 \u00a0 17 \u00a0 18 \u00a0 19 \u00a0 20 \u00a0 21 \u00a0 22 \u00a0 Count(*) Into nCnt From SYS.IDLTRANSLATE Where C_BASE64DECODE=vChar;<\/p>\n

If nCnt <> 1 Then<\/p>\n

DBMS_OUTPUT.PUT_LINE(‘SUBSTATION TABLE WARNING: Count not find following char–‘||vChar);<\/p>\n

Return;<\/p>\n

Else<\/p>\n

Select C_LZDEFLATECODE Into vRepchar From SYS.IDLTRANSLATE Where C_BASE64DECODE=vChar;<\/p>\n

End If;<\/p>\n

vLZinflatestr := vLZinflatestr || vRepchar;<\/p>\n

–DBMS_OUTPUT.PUT_LINE(vLZinflatestr);<\/p>\n

End Loop;<\/p>\n

–DBMS_OUTPUT.PUT_LINE(vLZinflatestr);<\/p>\n

DBMS_OUTPUT.PUT_LINE(amosunwrapper.inflate(vLZinflatestr));<\/p>\n

End;<\/p>\n

23 \u00a0 24 \u00a0 25 \u00a0 26 \u00a0 27 \u00a0 28 \u00a0 29 \u00a0 30 \u00a0 31 \u00a0 32 \u00a0 33 \u00a0 34 \u00a0 35<\/p>\n

36\u00a0 \/<\/p>\n

PACKAGE BODY dbms_monitor IS<\/p>\n

PROCEDURE CLIENT_ID_STAT_ENABLE(CLIENT_ID IN VARCHAR2) IS<\/p>\n

EXTERNAL<\/p>\n

NAME “kewe_3gl_1”<\/p>\n

WITH CONTEXT<\/p>\n

PARAMETERS (CONTEXT,<\/p>\n

CLIENT_ID \u00a0 OCISTRING,<\/p>\n

CLIENT_ID \u00a0 INDICATOR SB4)<\/p>\n

LIBRARY DBMS_MONITOR_LIB;<\/p>\n

PROCEDURE CLIENT_ID_STAT_DISABLE(CLIENT_ID IN VARCHAR2) IS<\/p>\n

EXTERNAL<\/p>\n

NAME “kewe_3gl_2”<\/p>\n

WITH CONTEXT<\/p>\n

PARAMETERS (CONTEXT,<\/p>\n

CLIENT_ID \u00a0 \u00a0 OCISTRING,<\/p>\n

CLIENT_ID \u00a0 INDICATOR SB4)<\/p>\n

LIBRARY DBMS_MONITOR_LIB;<\/p>\n

PROCEDURE<\/p>\n

SERV_MOD_ACT_STAT_ENABLE(SERVICE_NAME IN VARCHAR2,<\/p>\n

MODULE_NAME\u00a0 IN VARCHAR2,<\/p>\n

ACTION_NAME\u00a0 IN VARCHAR2) IS<\/p>\n

EXTERNAL<\/p>\n

NAME “kewe_3gl_3”<\/p>\n

WITH CONTEXT<\/p>\n

PARAMETERS (CONTEXT,<\/p>\n

SERVICE_NAME<\/p>\n

OCISTRING,<\/p>\n

SERVICE_NAME\u00a0 \u00a0 INDICATOR SB4,<\/p>\n

MODULE_NAME \u00a0 \u00a0 OCISTRING,<\/p>\n

MODULE_NAME<\/p>\n

INDICATOR SB4,<\/p>\n

ACTION_NAME \u00a0 \u00a0 OCISTRING,<\/p>\n

ACTION_NAME \u00a0 \u00a0 INDICATOR SB4)<\/p>\n

LIBRARY DBMS_MONITOR_LIB;<\/p>\n

PROCEDURE SERV_MOD_ACT_STAT_DISABLE(SERVICE_NAME IN VARCHAR2,<\/p>\n

MODULE_NAME\u00a0 IN VARCHAR2,<\/p>\n

ACTION_NAME\u00a0 IN VARCHAR2) IS<\/p>\n

EXTERNAL<\/p>\n

NAME “kewe_3gl_4”<\/p>\n

WITH CONTEXT<\/p>\n

PARAMETERS (CONTEXT,<\/p>\n

SERVICE_NAME<\/p>\n

OCISTRING,<\/p>\n

SERVICE_NAME\u00a0 \u00a0 INDICATOR SB4,<\/p>\n

MODULE_NAME \u00a0 \u00a0 OCISTRING,<\/p>\n

MODULE_NAME<\/p>\n

INDICATOR SB4,<\/p>\n

ACTION_NAME \u00a0 \u00a0 OCISTRING,<\/p>\n

ACTION_NAME \u00a0 \u00a0 INDICATOR SB4)<\/p>\n

LIBRARY DBMS_MONITOR_LIB;<\/p>\n

PROCEDURE CLIENT_ID_TRACE_ENABLE(CLIENT_ID IN VARCHAR2,<\/p>\n

WAITS IN BOOLEAN,<\/p>\n

BINDS IN BOOLEAN,<\/p>\n

PLAN_STAT IN VARCHAR2) IS<\/p>\n

EXTERNAL<\/p>\n

NAME “kewe_3gl_5”<\/p>\n

WITH CONTEXT<\/p>\n

PARAMETERS (CONTEXT,<\/p>\n

CLIENT_ID \u00a0 OCISTRING,<\/p>\n

CLIENT_ID \u00a0 \u00a0 INDICATOR SB4,<\/p>\n

WAITS \u00a0 UB2,<\/p>\n

WAITS \u00a0 INDICATOR SB4,<\/p>\n

BINDS<\/p>\n

UB2,<\/p>\n

BINDS \u00a0 INDICATOR SB4,<\/p>\n

PLAN_STAT \u00a0 OCISTRING,<\/p>\n

PLAN_STAT \u00a0 INDICATOR SB4)<\/p>\n

LIBRARY DBMS_MONITOR_LIB;<\/p>\n

PROCEDURE CLIENT_ID_TRACE_DISABLE(CLIENT_ID IN VARCHAR2) IS<\/p>\n

EXTERNAL<\/p>\n

NAME “kewe_3gl_6”<\/p>\n

WITH CONTEXT<\/p>\n

PARAMETERS (CONTEXT,<\/p>\n

CLIENT_ID \u00a0 OCISTRING,<\/p>\n

CLIENT_ID \u00a0 INDICATOR SB4)<\/p>\n

LIBRARY DBMS_MONITOR_LIB;<\/p>\n

PROCEDURE SERV_MOD_ACT_TRACE_ENABLE(SERVICE_NAME IN VARCHAR2,<\/p>\n

MODULE_NAME\u00a0 IN VARCHAR2,<\/p>\n

ACTION_NAME\u00a0 IN VARCHAR2,<\/p>\n

WAITS IN BOOLEAN,<\/p>\n

BINDS IN BOOLEAN,<\/p>\n

INSTANCE_NAME<\/p>\n

IN VARCHAR2,<\/p>\n

PLAN_STAT IN VARCHAR2) IS<\/p>\n

EXTERNAL<\/p>\n

NAME “kewe_3gl_7”<\/p>\n

WITH CONTEXT<\/p>\n

PARAMETERS<\/p>\n

(CONTEXT,<\/p>\n

SERVICE_NAME\u00a0 \u00a0 OCISTRING,<\/p>\n

SERVICE_NAME\u00a0 \u00a0 INDICATOR SB4,<\/p>\n

MODULE_NAME<\/p>\n

OCISTRING,<\/p>\n

MODULE_NAME \u00a0 \u00a0 INDICATOR SB4,<\/p>\n

ACTION_NAME \u00a0 \u00a0 OCISTRING,<\/p>\n

ACTION_NAME<\/p>\n

INDICATOR SB4,<\/p>\n

WAITS \u00a0 \u00a0 UB2,<\/p>\n

WAITS \u00a0 \u00a0 INDICATOR SB4,<\/p>\n

BINDS \u00a0 \u00a0 UB2,<\/p>\n

BINDS INDICATOR SB4,<\/p>\n

INSTANCE_NAME \u00a0 OCISTRING,<\/p>\n

INSTANCE_NAME \u00a0 INDICATOR SB4,<\/p>\n

PLAN_STAT<\/p>\n

OCISTRING,<\/p>\n

PLAN_STAT \u00a0 \u00a0 INDICATOR SB4)<\/p>\n

LIBRARY DBMS_MONITOR_LIB;<\/p>\n

PROCEDURE<\/p>\n

SERV_MOD_ACT_TRACE_DISABLE(SERVICE_NAME IN VARCHAR2,<\/p>\n

MODULE_NAME\u00a0 IN VARCHAR2,<\/p>\n

ACTION_NAME\u00a0 IN VARCHAR2,<\/p>\n

INSTANCE_NAME IN VARCHAR2) IS<\/p>\n

EXTERNAL<\/p>\n

NAME “kewe_3gl_8”<\/p>\n

WITH<\/p>\n

CONTEXT<\/p>\n

PARAMETERS (CONTEXT,<\/p>\n

SERVICE_NAME\u00a0 \u00a0 OCISTRING,<\/p>\n

SERVICE_NAME\u00a0 \u00a0 INDICATOR SB4,<\/p>\n

MODULE_NAME OCISTRING,<\/p>\n

MODULE_NAME \u00a0 \u00a0 INDICATOR SB4,<\/p>\n

ACTION_NAME \u00a0 \u00a0 OCISTRING,<\/p>\n

ACTION_NAME INDICATOR SB4,<\/p>\n

INSTANCE_NAME \u00a0 OCISTRING,<\/p>\n

INSTANCE_NAME \u00a0 INDICATOR SB4)<\/p>\n

LIBRARY DBMS_MONITOR_LIB;<\/p>\n

PROCEDURE SESSION_TRACE_ENABLE(SESSION_ID IN BINARY_INTEGER,<\/p>\n

SERIAL_NUM IN BINARY_INTEGER,<\/p>\n

WAITS IN BOOLEAN,<\/p>\n

BINDS IN BOOLEAN,<\/p>\n

PLAN_STAT IN VARCHAR2) IS<\/p>\n

EXTERNAL<\/p>\n

NAME “kewe_3gl_9”<\/p>\n

WITH CONTEXT<\/p>\n

PARAMETERS (CONTEXT,<\/p>\n

SESSION_ID\u00a0 \u00a0 SB4,<\/p>\n

SESSION_ID\u00a0 \u00a0 INDICATOR<\/p>\n

SB4,<\/p>\n

SERIAL_NUM\u00a0 \u00a0 SB4,<\/p>\n

SERIAL_NUM\u00a0 \u00a0 INDICATOR SB4,<\/p>\n

WAITS \u00a0 UB2,<\/p>\n

WAITS<\/p>\n

INDICATOR SB4,<\/p>\n

BINDS \u00a0 UB2,<\/p>\n

BINDS \u00a0 INDICATOR SB4,<\/p>\n

PLAN_STAT \u00a0 OCISTRING,<\/p>\n

PLAN_STAT \u00a0 \u00a0 INDICATOR SB4)<\/p>\n

LIBRARY DBMS_MONITOR_LIB;<\/p>\n

PROCEDURE SESSION_TRACE_DISABLE(SESSION_ID IN BINARY_INTEGER,<\/p>\n

SERIAL_NUM IN BINARY_INTEGER) IS<\/p>\n

EXTERNAL<\/p>\n

NAME “kewe_3gl_10”<\/p>\n

WITH CONTEXT<\/p>\n

PARAMETERS (CONTEXT,<\/p>\n

SESSION_ID\u00a0 \u00a0 SB4,<\/p>\n

SESSION_ID\u00a0 \u00a0 INDICATOR SB4,<\/p>\n

SERIAL_NUM\u00a0 \u00a0 SB4,<\/p>\n

SERIAL_NUM\u00a0 \u00a0 INDICATOR SB4)<\/p>\n

LIBRARY DBMS_MONITOR_LIB;<\/p>\n

PROCEDURE DATABASE_TRACE_ENABLE(WAITS IN BOOLEAN,<\/p>\n

BINDS IN BOOLEAN,<\/p>\n

INSTANCE_NAME IN<\/p>\n

VARCHAR2,<\/p>\n

PLAN_STAT IN VARCHAR2) IS<\/p>\n

EXTERNAL<\/p>\n

NAME “kewe_3gl_11”<\/p>\n

WITH CONTEXT<\/p>\n

PARAMETERS<\/p>\n

(CONTEXT,<\/p>\n

WAITS \u00a0 \u00a0 UB2,<\/p>\n

WAITS \u00a0 \u00a0 INDICATOR SB4,<\/p>\n

BINDS \u00a0 \u00a0 UB2,<\/p>\n

BINDS INDICATOR SB4,<\/p>\n

INSTANCE_NAME \u00a0 OCISTRING,<\/p>\n

INSTANCE_NAME \u00a0 INDICATOR SB4,<\/p>\n

PLAN_STAT<\/p>\n

OCISTRING,<\/p>\n

PLAN_STAT \u00a0 \u00a0 INDICATOR SB4)<\/p>\n

LIBRARY DBMS_MONITOR_LIB;<\/p>\n

PROCEDURE DATABASE_TRACE_DISABLE(INSTANCE_NAME<\/p>\n

IN VARCHAR2) IS<\/p>\n

EXTERNAL<\/p>\n

NAME “kewe_3gl_12”<\/p>\n

WITH CONTEXT<\/p>\n

PARAMETERS (CONTEXT,<\/p>\n

INSTANCE_NAME \u00a0 OCISTRING,<\/p>\n

INSTANCE_NAME INDICATOR SB4)<\/p>\n

LIBRARY DBMS_MONITOR_LIB;<\/p>\n

END;<\/p>\n

PL\/SQL procedure success<\/p>\n

\u4e0a\u9762\u76f4\u63a5\u8c03\u7528\u4e0d\u80fd\u5927\u4e8e4000\u4e2a\u5b57\u8282\u00a0 \u6211\u4eec\u5199\u4e00\u4e2a\u8fc7\u7a0b\u6765\u5c01\u88c5\u4e00\u4e0b \u5b8c\u5584\u4e00\u4e0b<\/p>\n\n\n\n
set serveroutput on;create or replace procedure unwrap(o in varchar,n in varchar, t in varchar)<\/p>\n

as<\/p>\n

vWrappedtext\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0 Varchar2(32767);<\/p>\n

vtrimtext\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0 Varchar2(32767);<\/p>\n

vChar\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0 Varchar2(2);<\/p>\n

vRepchar\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0\u00a0Varchar2(2);<\/p>\n

vLZinflatestr\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0Varchar2(32767);<\/p>\n

nLen\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0 Integer;<\/p>\n

nLoop\u00a0 \u00a0\u00a0 \u00a0\u00a0\u00a0Integer;<\/p>\n

nCnt\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0 Integer;<\/p>\n

type vartab is table of varchar2(2) index by varchar2(2);<\/p>\n

mytbl vartab;<\/p>\n

cursor getchar is select C_BASE64DECODE xr,C_LZDEFLATECODE dr from sys.idltranslate;<\/p>\n

Begin<\/p>\n

for i in getchar loop –sys.idltranslate\u8868\u5185\u5bb9\u5b58\u5230\u5b57\u7b26\u6570\u7ec4<\/p>\n

mytbl(i.xr):=i.dr;<\/p>\n

end loop;<\/p>\n

vtrimtext:=”;<\/p>\n

select count(*) into ncnt\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0\u00a0 \u00a0 from DBA_SOURCE<\/p>\n

Where owner=o<\/p>\n

And Name = n<\/p>\n

And Type=t ;<\/p>\n

if ncnt >0 and ncnt <5 then<\/p>\n

for i in 1..ncnt loop<\/p>\n

if i=1 then<\/p>\n

select rtrim( substr( TEXT, instr( TEXT, chr( 10 ), 1, 20 ) + 1 ), chr(10) )\u00a0 \u00a0–\u4fdd\u5b58\u53bb\u6389\u6362\u884c\u7684BASE64\u7801\u6b63\u6587<\/p>\n

into vLZinflatestr<\/p>\n

from DBA_SOURCE<\/p>\n

Where owner=o<\/p>\n

And Name = n<\/p>\n

And Type=t and line=i;<\/p>\n

else<\/p>\n

select text into vLZinflatestr<\/p>\n

from DBA_SOURCE<\/p>\n

Where owner=o<\/p>\n

And Name = n<\/p>\n

And Type=t and line=i;<\/p>\n

end if;<\/p>\n

vtrimtext:=vtrimtext||vLZinflatestr;<\/p>\n

end loop;<\/p>\n

end if;<\/p>\n

vtrimtext:=replace(vtrimtext,chr(10),”);<\/p>\n

nLen := Length(vtrimtext)\/64 ;<\/p>\n

vWrappedtext :=”;<\/p>\n

for i in 0..nLen\u00a0\u00a0loop<\/p>\n

if i< nLen\u00a0 \u00a0then<\/p>\n

vWrappedtext:=vWrappedtext||utl_encode.base64_decode( utl_raw.cast_to_raw(substrb(vtrimtext,64*i+1 , 64 ))) ;<\/p>\n

else<\/p>\n

vWrappedtext:=vWrappedtext||utl_encode.base64_decode( utl_raw.cast_to_raw(substrb(vtrimtext,64*i+1\u00a0\u00a0))) ;<\/p>\n

end if;<\/p>\n

–DBMS_OUTPUT.PUT_LINE(vWrappedtext);<\/p>\n

End Loop;<\/p>\n

–vWrappedtext:=substr(vWrappedtext,41);<\/p>\n

nLen := Length(vWrappedtext)\/2 – 1;<\/p>\n

vLZinflatestr :=”;<\/p>\n

For nLoop In 20..nLen Loop –\u4ece\u7b2c41\u5b57\u8282\u5f00\u59cb<\/p>\n

vChar := Substrb(vWrappedtext,nLoop*2+1,2);<\/p>\n

\/*<\/p>\n

Select Count(*) Into nCnt From SYS.IDLTRANSLATE Where C_BASE64DECODE=vChar;<\/p>\n

If nCnt <> 1 Then<\/p>\n

DBMS_OUTPUT.PUT_LINE(‘SUBSTATION TABLE WARNING: Count not find following char–‘||vChar);<\/p>\n

Return;<\/p>\n

Else<\/p>\n

Select C_LZDEFLATECODE Into vRepchar From SYS.IDLTRANSLATE Where C_BASE64DECODE=vChar;<\/p>\n

End If;<\/p>\n

*\/<\/p>\n

vLZinflatestr := vLZinflatestr || mytbl(vChar); –\u4ece\u5b57\u7b26\u6570\u7ec4\u5339\u914d<\/p>\n

–DBMS_OUTPUT.PUT_LINE(vLZinflatestr);<\/p>\n

End Loop;<\/p>\n

–DBMS_OUTPUT.PUT_LINE(vLZinflatestr);<\/p>\n

DBMS_OUTPUT.PUT_LINE(amosunwrapper.inflate(vLZinflatestr));<\/p>\n

End;<\/p>\n

\/<\/p>\n\n\n\n
\u6700\u540e\u6211\u4eec\u6765\u4e00\u4e2a\u89e3\u5bc6\u4e00\u4e0b\u4e00\u5f00\u59cb\u7684\u90a3\u4e2a\u51fd\u6570SQL> exec unwrap(‘SYS’,’DL2ML’,’FUNCTION’);<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n","protected":false},"excerpt":{"rendered":"

\u9996\u5148\u6211\u4eec\u6765\u770b\u4e00\u4e0boracle\u5bf9\u5305\u3001\u51fd\u6570\u3001\u8fc7\u7a0b\u7684\u52a0\u5bc6 oracle\u5185\u90e8\u63d0\u4f9b\u4e86\u4e24\u79cd\u52a0\u5bc6\u65b9\u5f0f \u6211\u4eec\u5148\u6765\u770b\u7b2c\u4e00\u79cd\uff1a \u5728 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[34,2],"class_list":["post-521","post","type-post","status-publish","format-standard","hentry","category-oracle","tag-oracle","tag-oracle_basics"],"_links":{"self":[{"href":"http:\/\/www.royalwzy.com\/index.php?rest_route=\/wp\/v2\/posts\/521","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.royalwzy.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.royalwzy.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.royalwzy.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.royalwzy.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=521"}],"version-history":[{"count":1,"href":"http:\/\/www.royalwzy.com\/index.php?rest_route=\/wp\/v2\/posts\/521\/revisions"}],"predecessor-version":[{"id":1010,"href":"http:\/\/www.royalwzy.com\/index.php?rest_route=\/wp\/v2\/posts\/521\/revisions\/1010"}],"wp:attachment":[{"href":"http:\/\/www.royalwzy.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=521"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.royalwzy.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=521"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.royalwzy.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=521"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}