package_body ppp

aaa clob;

...

PRocedure change_content()

begin

...

aaa := replace(aaa, 'b', ';;');

...

end;

procedure call_f()

begin

aaa := empty_clob();

aaa := 'aaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaa’

for i in 1..10000 loop

change_content();

end loop;

end;

從邏輯上看，這段代碼可以使用下面的代碼進行模擬，

declare

aaa clob;

begin

aaa := empty_clob();

aaa := 'aaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaa’

for i in 1..10000 loop

aaa := replace(aaa, 'b', ';;');

end loop;

end;

許多人都知道，在PLSQL中的LOB類型變量是占用臨時表空間的。但是，從以上代碼看，CLOB變量aaa的初始值并沒有占用太大空間。我們在測試環境上運行該語句，用以下語句觀察其臨時表空間占用情況。

SELECT b.tablespace,

ROUND(((b.blocks*p.value)/1024/1024),2)||'M' "SIZE",

b.CONTENTS,

s.sql_text,

a.sid||','||a.serial# SID_SERIAL,

a.username,

a.program,

sysdate as log_date

FROM sys.v_$session a,

sys.v_$sort_usage b,

sys.v_$parameter p,

v$sqlarea s

WHERE p.name = 'db_block_size'

AND a.saddr = b.session_addr

AND a.sql_address = s.address and a.sql_hash_value = s.hash_value

ORDER BY b.tablespace, b.blocks;

TABLESPACE SIZE CONTENTS SQL_TEXT SID_SERIAL USERNAME PROGRAM LOG_DATE

---------------------------------------------------------------------------------

TEMP 37M TEMPORARY declare aaa clob; begin aaa := empty_clob(); aaa := 'aaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaa';

for i in 1..1000000000 loop aaa := replace(aaa, 'a', ';;'); end loop; end; 137,28675 DEMO plsqldev.exe 8/15/2007 11:42:11 AM

發現臨時表空間在不停增長。問題就在于aaa := replace(aaa, 'b', ';;').Replace()函數會先將傳入的CLOB參數變量在temp空間上保存一份，然后再轉換為varchar2類型進行操作。這樣，每次進行了replace操作后，就多占據了一份temp空間。

大家可以通過包dbms_lob中提供的copy、instr和write函數來自己編寫一個clob的字符替換函數，來避免temp空間的泄露。以下存儲過程實現了CLOB中的字符串替換。

create or replace procedure lob_replace( p_lob in out clob,

p_what in varchar2,

p_with in varchar2 )

as

n number;

len number;

begin

n := dbms_lob.instr( p_lob, p_what );

while ( nvl(n,0) > 0 ) loop

len := dbms_lob.getlength(p_lob);

if (n+length(p_with)-1 > len)

then

dbms_lob.writeappend( p_lob, n+length(p_with)-1 - len, p_with );

end if;

if (len-n-length(p_what)+1 > 0)

then

dbms_lob.copy( p_lob,

p_lob,

len-n-length(p_what)+1,

n+length(p_with),

n+length(p_what) );

end if;

dbms_lob.write( p_lob, length(p_with), n, p_with );

if ( length(p_what) > length(p_with) )

then

dbms_lob.trim( p_lob,

dbms_lob.getlength(p_lob)-(length(p_what)-length(p_with)) );

end if;

n := dbms_lob.instr( p_lob, p_what );

end loop;

end;

結論：

使用上面的過程代替replace函數，再次運行程序，用以上語句進行觀察，不再存在臨時空間泄露的情況。