HwHGcwcM

1CREATE OR REPLACE PROCEDURE atualizaEmail
2IS
3	CURSOR C1 IS SELECT nome, email FROM Aluno FOR UPDATE OF email;
4BEGIN
5	FOR C_ALUNO IN C1 LOOP
6		UPDATE Aluno
7				SET email = REGEXP_SUBSTR(C_ALUNO.nome, '[^ ]+') || '@gmail.com' 
8				WHERE CURRENT OF C1;
9	END LOOP;
10COMMIT;
11END;
12/