(9I R2) UTL_FILE.FREMOVE를 이용하여 OS FILE을 지우는 방법

Question

제품 : PL/SQL
작성날짜 : 2003-01-20
(9I R2) UTL_FILE.FREMOVE를 이용하여 OS FILE을 지우는 방법
=========================================================
PURPOSE
UTL_FILE package을 사용하여 OS file을 지우는 sample을 만들어 본다.
UTL_FILE.FREMOVE는 Oracle 9i Release 2 이상에서 가능하며 이전 버젼에서는
제공되지 않는다.
Explanation
Oracle 9i Release 2 에서 UTL_FILE package에 다음과 같은 새로운 procedure가
추가되었다.
UTL_FILE.FCOPY(), UTL_FILE.FRENAME(), UTL_FILE.FREMOVE() , UTL_FILE.FGETATTR()
1) FCOPY ( Unix에서의 cp와 유사 ) procedure
: 모든 또는 일부분의 file을 copy한다.
2) FRENAME (Unix에서의 mv와 유사) procedure
: 존재하고 있는 file을 새로운 이름으로 바꾸며, 또한 이미 같은 file 이름이 존재한다면
overwrite할건지의 option이 존재한다.
3) FREMOVE (Unix에서의 rm와 유사) procedure
: 적당한 DIRECTORY OBJECT privilege 와 operating system
privilege가 있다면, DISK에 존재하는 file을 지운다.
4) FGETATTR procedure
:file의 특성을 읽고 그 값을 return한다.
UTL_FILE.FCOPY (location, filename, dest_dir,
dest_file, start_line, end_line);
UTL_FILE.FRENAME (location, filename, dest_dir, dest_file, overwrite);
UTL_FILE.FREMOVE (location, filename);
UTL_FILE.FGETATTR (location, filename, exists,
file_length, blocksize, create_date, mod_date);
Example
예제 1)
SQL> conn / as sysdba
Connected.
SQL> CREATE OR REPLACE DIRECTORY NEW_DIR as '/home/ora920/tool/jooyeon';
Directory created.
SQL> GRANT READ ON DIRECTORY NEW_DIR to scott;
Grant succeeded.
SQL> !ls new.txt
new.txt
SQL> BEGIN
UTL_FILE.fremove ('NEW_DIR','new.txt');
EXCEPTION
WHEN UTL_FILE.delete_failed THEN
dbms_output.put_line('Error while deleting the file');
END;
/ 2 3 4 5 6 7
PL/SQL procedure successfully completed.
예제 2)
SQL> connect sys/manager as sysdba
Connected.
SQL> create or replace directory public_access as '/home/ora920/tool';
Directory created.
SQL> grant read on directory public_access to public;
Grant succeeded.
SQL> conn scott/tiger
Connected.
SQL> create table tcopy01_out (line varchar2(500), i number);
Table created.
SQL>
create procedure tcopy01_p as
errbuf varchar2(50);
dir varchar2(512) := 'PUBLIC_ACCESS';
f1 utl_file.file_type;
type t_files is table of utl_file.file_type
index by binary_integer;
files t_files;
i number := 0;
ok boolean := TRUE;
pos number;
len number;
blk number;
procedure insertoutput (line varchar2) is
begin
insert into tcopy01_out values (line, i);
i := i+1;
end insertoutput;
begin
f1 := utl_file.fopen('PUBLIC_ACCESS', 'tcopy01.dat', 'w');
utl_file.put_line(f1, 'Copy tcopy01.dat to tcopy01c.dat, line 1.');
utl_file.put_line(f1, 'Copy tcopy01.dat to tcopy01c.dat, line 2.');
utl_file.put_line(f1, 'Copy tcopy01.dat to tcopy01c.dat, line 3.');
utl_file.put_line(f1, 'Copy tcopy01.dat to tcopy01c.dat, line 4.');
utl_file.put_line(f1, 'Copy tcopy01.dat to tcopy01c.dat, line 5.');
utl_file.put_line(f1, 'Copy tcopy01.dat to tcopy01c.dat, line 6.');
utl_file.fclose(f1);
-- Full copy
begin
utl_file.fcopy('PUBLIC_ACCESS', 'tcopy01.dat','PUBLIC_ACCESS','tcopy01c.dat');
f1 := utl_file.fopen('PUBLIC_ACCESS', 'tcopy01c.dat', 'r');
utl_file.fclose(f1);
insertoutput('SUCCESS: Copied 1 file');
exception
when others then
errbuf := substr(sqlerrm, 1, 50);
insertoutput ('Unexpected exception raised: '||errbuf);
end;
-- Partial copy
begin
utl_file.fcopy('PUBLIC_ACCESS', 'tcopy01.dat','PUBLIC_ACCESS',
'tcopy01c2.dat',2,4);
utl_file.fgetattr('PUBLIC_ACCESS','tcopy01c2.dat',ok,len,blk);
insertoutput('SUCCESS: Copied file size='||len);
exception
when others then
errbuf := substr(sqlerrm, 1, 50);
insertoutput ('Unexpected exception raised: '||errbuf);
end;
begin
utl_file.fcopy('PUBLIC_ACCESS', 'tcopy01.dat','PUBLIC_ACCESS',
'tcopy01.dat');
utl_file.fgetattr('PUBLIC_ACCESS','tcopy01.dat',ok,len,blk);
insertoutput('SUCCESS: Copied file size='||len);
exception
when others then
errbuf := substr(sqlerrm, 1, 50);
insertoutput ('Unexpected exception raised: '||errbuf);
end;
-- Rename
f1 := utl_file.fopen('PUBLIC_ACCESS', 'trename01.dat', 'w');
utl_file.put_line(f1, 'File b, line 1.');
utl_file.fclose(f1);
f1 := utl_file.fopen('PUBLIC_ACCESS', 'trename012.dat', 'w');
utl_file.put_line(f1, 'File b, line 1.');
utl_file.fclose(f1);
-- Successful case
begin
utl_file.frename('PUBLIC_ACCESS','trename01.dat','PUBLIC_ACCESS','trename01c.dat');
f1 := utl_file.fopen('PUBLIC_ACCESS', 'trename01c.dat', 'r');
utl_file.fclose(f1);
f1 := utl_file.fopen('PUBLIC_ACCESS', 'trename01.dat', 'r');
exception
when utl_file.invalid_path then
insertoutput('SUCCESS: file renamed ');
when utl_file.rename_failed then
insertoutput('FAILURE: rename failed ');
end;
-- Successful case with overwrite flag
begin
utl_file.frename('PUBLIC_ACCESS','trename012.dat','PUBLIC_ACCESS','trename01c.dat',TRUE);
f1 := utl_file.fopen('PUBLIC_ACCESS', 'trename01c.dat', 'r');
utl_file.fclose(f1);
f1 := utl_file.fopen('PUBLIC_ACCESS', 'trename01.dat', 'r');
exception
when utl_file.invalid_path then
insertoutput('SUCCESS: file renamed ');
when utl_file.rename_failed then
insertoutput('FAILURE: rename failed ');
end;
commit;
exception
when others then
errbuf := substr(sqlerrm, 1, 50);
insertoutput ('Unexpected exception raised: '||errbuf);
commit;
end;
show errors
SQL> exec tcopy01_p;
ora920:/home/ora920/tool> ls -al
GU0h 40
drwxr-xr-x 5 ora920 dba 4096 1?y 20 10:19 ./
drwxr-x--- 31 ora920 dba 8192 1?y 20 13:05 ../
-rw-r--r-- 1 ora920 dba 0 1?y 20 10:19 tcopy01.dat
-rw-r--r-- 1 ora920 dba 252 1?y 20 10:19 tcopy01c.dat
-rw-r--r-- 1 ora920 dba 126 1?y 20 10:19 tcopy01c2.dat
-rw-r--r-- 1 ora920 dba 16 1?y 20 10:19 trename012.dat
-rw-r--r-- 1 ora920 dba 16 1?y 20 10:19 trename01c.dat
ora920:/home/ora920/tool> cat *.dat
Copy tcopy01.dat to tcopy01c.dat, line 1.
Copy tcopy01.dat to tcopy01c.dat, line 2.
Copy tcopy01.dat to tcopy01c.dat, line 3.
Copy tcopy01.dat to tcopy01c.dat, line 4.
Copy tcopy01.dat to tcopy01c.dat, line 5.
Copy tcopy01.dat to tcopy01c.dat, line 6.
Copy tcopy01.dat to tcopy01c.dat, line 2.
Copy tcopy01.dat to tcopy01c.dat, line 3.
Copy tcopy01.dat to tcopy01c.dat, line 4.
File b, line 1.
File b, line 1.
References
<Note:216450.1>
<Note:196948.1>
Korean Bulletin : 18488
PURPOSE
Explanation
Example
Reference Documents
-------------------

Answer 1