ITPub博客

首页 > Linux操作系统 > Linux操作系统 > a good script for finding whether using bind variables (wirted by tom)

a good script for finding whether using bind variables (wirted by tom)

原创 Linux操作系统 作者:txt1124 时间:2010-11-17 15:02:30 0 删除 编辑

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);
commit;

that's all the using this function.and you can execute this statement to find whether your application have not used the bind variables.
select count(*),sql_text_wo_constants from t1 group by sql_text_wo_constants;

来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/14730395/viewspace-678343/ ,如需转载,请注明出处,否则将追究法律责任。

上一篇: dg learning
请登录后发表评论 登录
全部评论

注册时间:2008-12-15

  • 博文量
    91
  • 访问量
    162486