oracle 树状结构递归 PL/SQL输出控制包括空格输出控制

树状结构

存储过程中通过递归构建，类似BBS回帖显示，代码共三段：

建表，插入数据，创建存储过程显示；

1.
create table article
(
id number primary key,
cont varchar2(4000),
pid number,
idleaf number(1), --0为非叶子节点,1为叶子节点
alevel number(2)
);

insert into article values(1,'蚂蚁大战大象',0,0,0);
insert into article values(2,'大象被打趴下了',1,0,1);
insert into article values(3,'蚂蚁也不好过',1,0,1);
insert into article values(4,'瞎说',2,1,2);
insert into article values(5,'没有瞎说',4,1,3);
insert into article values(6,'怎么可能',1,0,1);
insert into article values(7,'怎么没可能',6,1,2);
insert into article values(8,'可能性很大的',6,1,2);
insert into article values(9,'大象进了医院',2,0,2);
insert into article values(10,'护士是蚂蚁',9,1,3);

create or replace procedure tree(v_pid article.pid%type,v_alevel article.alevel%type)
is
　　cursor c is select * from article where pid=v_pid;
　　v_str varchar2(2048) :=' ';
begin
　　for i in 0..v_alevel loop
　　v_str :=v_str||' ';
end loop;
　　for v_article in c loop dbms_output.put_line(v_str||v_article.cont);
　　if (v_article.isleaf =0) then
　　　　tree(v_article.id,v_article.alevel);
　　end if;
　　end loop;
　　end;

结果前面的N*4个空格不显示：