快速创建1000用户，每用户1000表，1000索引，1000个trigger

有时候为了方便测试，我们需要制造一些复杂的数据，比如这里，我们快速的创建1000用户，每用户1000表，1000索引，1000个trigger

-- create tablespace
create tablespace lunartbs datafile '/u01/oradata/lunar/lunartbs01.dbf' size 30m autoextend on;

-- create directory
create directory dpu as '/test';

declare
stmt varchar2(1000);
begin
	for i in 1..&&1 loop
			-- create user
			stmt := 'create user lunar'||lpad (to_char (i), 4, '0')||' identified by lunar default tablespace lunar temporary tablespace temp';
			execute immediate stmt;
			
			-- grant user
			stmt := 'grant connect, resource,dba to lunar'||lpad (to_char (i), 4, '0');
			execute immediate stmt;
			
			-- for each user create 1000 tables
			for j in 1..1000 loop
					stmt := 'create table lunar'||lpad (to_char (i), 4, '0')||'.tab'||lpad(to_char (j), 3, '0')||' (id number, text varchar2(10))';
					execute immediate stmt;
			end loop;
			
			-- 1000 indexes
			for j in 1..1000 loop
					stmt := 'create index lunar'||lpad (to_char (i), 4, '0')||'.ind'||lpad(to_char (j), 3, '0')||' on lunar'||lpad (to_char (i), 4, '0')||'.tab'||lpad(to_char (j), 3, '0')||' (id)';
					execute immediate stmt;
			end loop;
			
			-- and 1000 triggers
			for j in 1..1000 loop
					stmt := 'create trigger lunar'||lpad (to_char (i), 4,'0')||'.trg'||lpad (to_char (j), 3, '0')||' before insert on lunar'||lpad(to_char (i), 4, '0')||'.tab'||lpad (to_char (j), 3, '0')||' for each row begin null; end;';
					execute immediate stmt;
			end loop;
			
	end loop;
end;
/