使用utl_file包进行io操作

使用utl_file包进行io操作

1. 首先要创建目录

CREATE  DIRECTORY log_dir  AS   ' d:/ora_log ' ;

2. 写log

DECLARE
  p_dir        varchar2 ( 100 );
  p_filename   varchar2 ( 100 );
  output_file utl_file.file_type;
begin
  p_dir       : =   ' log_dir ' ;
  p_filename  : =   ' log_ '   ||  to_char(sysdate,  ' yyyy_mm_dd_HH24_MI_SS ' )  ||   ' .txt ' ;
  output_file : =  utl_file.fopen( upper (p_dir), p_filename,  ' w ' );
   delete   from  test;
  utl_file.put(output_file, 'test:  ' || SQL%ROWCOUNT || ' rows deleted.');
  utl_file.new_line(output_file);
   insert   into  test
     select   *   from  test @remotedb ;
  utl_file.put(output_file,  'test :   '   ||  SQL % ROWCOUNT   ||   '  rows inserted. ' );
  utl_file.new_line(output_file);
  utl_file.fclose(output_file);
   commit ;
EXCEPTION
   WHEN  OTHERS  THEN
      utl_file.put(output_file, 'error: ' || to_char(sysdate, 'yyyy-mm-dd HH24:MI:SS'));
      utl_file.new_line(output_file);
      utl_file.put(output_file, 'SQLCODE:'||SQLCODE);
      utl_file.new_line(output_file);
      utl_file.put(output_file, 'SQLERRM:'||SQLERRM);
      utl_file.new_line(output_file);
      utl_file.fclose(output_file);   
     ROLLBACK ;
end ;
/

参考:
1. PL/SQL Packages and Types Reference
2. AskTom
3. Itpub