利用CONNECT BY实现二进制到十进制的转换

create or replace function bintodec(bstr in varchar2) return varchar2 is
-- ********************************************************
--* 文件名：BinToDec.sql
-- * 版本：1.0
-- * 用途：利用connect by实现二进制向十进制的转换
-- * 参数：
-- * bStr: 待转换的二进制串
-- * 作者：zhanglt(20120317)
-- * 修改者：
-- ********************************************************
v_vc_sourstr varchar2(4000);
v_vc_rtnstr  varchar2(4000);
begin
v_vc_sourstr := trim(bstr);
select sum(factor)
into v_vc_rtnstr
from (select substr(v_vc_sourstr, rownum, 1) *
power(2, length(v_vc_sourstr) - rownum) factor
from dual
connect by rownum <= length(v_vc_sourstr));
return v_vc_rtnstr;
exception
when others then
return null;
end;