Oracle存储过程读取文件例子--UTL_FILE

---读文件测试
DECLARE
f_file utl_file.file_type;
c_line VARCHAR2(2048);
BEGIN
--打开文件
f_file := utl_file.fopen('SQL_SCRIPT', 'xml.pkg', 'R');


IF utl_file.is_open(f_file) THEN
LOOP
BEGIN
utl_file.get_line(f_file, c_line);
EXCEPTION
WHEN no_data_found THEN
EXIT;
END;

dbms_output.put_line(c_line);
END LOOP;