Re: ### 오늘의 마지막 문제. 아래의 결과가 출력되는 함수를 패키지로 생성해서 아래와 같이 실행되게 하시오

[21기_윤수연]

-- 함수 생성
create or replace function domain
(v_email emp21.email%type)
return varchar2
as
    v_domain varchar2(20);
begin
    select SUBSTR(EMAIL, INSTR(EMAIL, '@') + 1, INSTR(EMAIL, '.') - INSTR(EMAIL, '@') - 1) into v_domain
    from emp21
    where email = v_email;
    
    return v_domain;
end;
/

-- 명세부분 생성
create or replace package emp21_package
as
    function domain(v_email emp21.email%type) return varchar2;
end emp21_package;
/

-- 바디부분 생성
create or replace package body emp21_package
as
    function domain(v_email emp21.email%type)
    return varchar2
    is
        v_domain varchar2(20);
    begin
        select SUBSTR(EMAIL, INSTR(EMAIL, '@') + 1, INSTR(EMAIL, '.') - INSTR(EMAIL, '@') - 1) into v_domain
        from emp21
        where email = v_email;
    
        return v_domain;
    end domain;
end emp21_package;
/

-- 암호화 파일 생성
create or replace package body emp21_package wrapped 
a000000
34e
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
b
170 130
Mb5IcfQRexVYj+w4XSduZUgRGLAwg3lpr57WfHRVMWSFAU1+l9J7OQqrDVm6Jj3uoZGFywuP
tU/oO6d/pwzxnMYMh8XTmlpALwga1ggAAjUkstCxpXZiCbp8gINLVAn/yu5sa0feEm7H+1Qr
OI8KI5aYnkyVbxb9rw5sZv/055RgDVDTeWRcdK+9rrmT8O9HFoLbq5lfbHcuwwzuTWKADooK
LWRhmVvnPziqQO0kwyjhv0BseIB1ASaPYzMLDhJK4TXa7d38kywnVxOxXNyu92xLgQw7kfjy
nTo0+KbV98P4

/

select  ename, email, emp21_package.domain(email)
from emp21;