---读文件测试
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);
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);