oracle split函数

CREATE OR REPLACE PACKAGE STRING_FNC 
IS 

TYPE t_array IS TABLE OF VARCHAR2(50) 
   INDEX BY BINARY_INTEGER; 

FUNCTION SPLIT (p_in_string VARCHAR2, p_delim VARCHAR2) RETURN t_array; 

END; 

CREATE OR REPLACE PACKAGE BODY STRING_FNC 
IS 

   FUNCTION SPLIT (p_in_string VARCHAR2, p_delim VARCHAR2) RETURN t_array  
   IS 
    
      i       number :=0; 
      pos     number :=0; 
      lv_str  varchar2(50) := p_in_string; 
       
   strings t_array; 
    
   BEGIN 
    
      -- determine first chuck of string   
      pos := instr(lv_str,p_delim,1,1); 
    
      -- while there are chunks left, loop  
      WHILE ( pos != 0) LOOP 
          
         -- increment counter  
         i := i + 1; 
          
         -- create array element for chuck of string  
         strings(i) := substr(lv_str,1,pos-1); 
         strings(i) := func_sc_param('trigger_object',strings(i));
         -- remove chunk from string  
         lv_str := substr(lv_str,pos+1,length(lv_str)); 
          
         -- determine next chunk  
         pos := instr(lv_str,p_delim,1,1); 
          
         -- no last chunk, add to array  
         IF pos = 0 THEN 
            lv_str := func_sc_param('trigger_object', lv_str);
            strings(i+1) := lv_str; 
          
         END IF; 
       
      END LOOP; 
    
      -- return array  
      RETURN strings; 
       
   END SPLIT; 

END;  
--------
declare
  
  str string_fnc.t_array;
 
   begin
    str := string_fnc.split('4|11|6|3','|');
      
      for i in 1..str.count loop
     
          dbms_output.put_line(str(i));
    
     end loop;
     
  end;