如何在函数中初始化变量以拆分多面

Question

我正在尝试编写一个将多多边形分割成单个多边形的函数。如何正确初始化变量。

create or replace FUNCTION SPLIT_MULTIPOLYGON (
    p_geom IN SDO_GEOMETRY
) 
RETURN SDO_GEOMETRY IS
l_geom SDO_GEOMETRY := p_geom;
v_elements number;

BEGIN

v_elements := sdo_util.GetNumElem(p_geom);
FOR i in 1..v_elements LOOP
    EXECUTE IMMEDIATE 'sdo_util.extract(l_geom, i)';
    RETURN l_geom;
END LOOP;

END SPLIT_MULTIPOLYGON;

我希望每个外环多边形都作为一个对象。内圈没关系。稍后，应将每个多边形传递到现有表。