://asktom.
for i in 1 .. 10000
-
create table t1 as select sql_text from v$sqlarea;
-
-
alter table t1 add sql_text_wo_constants varchar2(1000);
-
-
create or replace function
-
remove_constants( p_query in varchar2 ) return varchar2
-
as
-
l_query long;
-
l_char varchar2(1);
-
l_in_quotes boolean default FALSE;
-
begin
-
for i in 1 .. length( p_query )
-
loop
-
l_char := substr(p_query,i,1);
-
if ( l_char = '''' and l_in_quotes )
-
then
-
l_in_quotes := FALSE;
-
elsif ( l_char = '''' and NOT l_in_quotes )
-
then
-
l_in_quotes := TRUE;
-
l_query := l_query || '''#';
-
end if;
-
if ( NOT l_in_quotes ) then
-
l_query := l_query || l_char;
-
end if;
-
end loop;
-
l_query := translate( l_query, '0123456789', '@@@@@@@@@@' );
-
for i in 0 .. 8 loop
-
l_query := replace( l_query, lpad('@',10-i,'@'), '@' );
-
l_query := replace( l_query, lpad(' ',10-i,' '), ' ' );
-
end loop;
-
return upper(l_query);
-
end;
-
/
-
update t1 set sql_text_wo_constants = remove_constants(sql_text);
set linesize 200;
col sql_text_wo_constants f
ORMat a100;
--结束END--
本文标题: 使用remove_constants工具查看Oracle是否使用绑定变量
本文链接: https://lsjlt.com/news/46755.html(转载时请注明来源链接)
有问题或投稿请发送至:
邮箱/279061341@qq.com QQ/279061341
0