Oacle Split Fuction

Oacle 中实现split功能。
下面语句SQL/PLUS 执行即可。
应用如：SELECT COLUMN_VALUE FROM TABLE (dlsplit(list,','));
-------------------------------------------------------------------
create or replace type split_tbl as table of varchar2(32767);
/

create or replace function dlsplit(p_list varchar2, p_del varchar2 := ',') return split_tbl pipelined is
l_idx pls_integer;
l_list varchar2(32767) := p_list;
begin
loop
l_idx := instr(l_list, p_del);
if l_idx > 0 then
pipe row(substr(l_list, 1, l_idx - 1));
l_list := substr(l_list, l_idx + length(p_del));
else
pipe row(l_list);
exit;
end if;
end loop;
return;
end dlsplit;
/