在数据库的开发中，当PL/SQL语句很复杂的时候，我想写一些Log，就像java的Log4j那样。这样就可以很好的跟踪程序的运行情况。在网上找到的文章不是很好用，修改了一下。
1：在Oracle服务器上建立一个目录并指定权限（我这个是unix的。windows用c:\tmp之类的就行）
CREATE DIRECTORY TEMP AS '/tmp';
GRANT READ,WRITE ON DIRECTORY TEMP TO PUBLIC;
GRANT EXECUTE ON SYS.UTL_FILE TO YOU_USER_NAME;
如果出现权限错误的话，注意自己登陆的方式，我是用oralce用户TelNet到Unix上的，然后connect / as sysdba。（windows 用户应该是：用sys用户登录到数据库(ora9i):conn sys/password@oraclesid as sysdba ，sys用户的缺省密码和system一样，都是manager）
2：写Log文件的SQL语句如下：
declare
file_handle utl_file.file_type;
buff varchar2(20);
cursor c1 is select acloumn from t_atable;
begin
file_handle := utl_file.fopen('TEMP',log.txt','w');
open c1;
loop
fetch c1 into buff;
exit when c1%notfound;
utl_file.put_line(file_handle,buff);
end loop;
close c1;
utl_file.fclose(file_handle);
end;
这样，就应该可以了，file_handle := utl_file.fopen('TEMP',log.txt','w');中的'w'是指write,也可以是'a',append.
封装后是这样的：
procedure writeLog(logMessage in Varchar2) is
begin
IF logSwitch THEN
file_handle := utl_file.fopen('TEMP','x.txt','w');
utl_file.put_line(file_handle,logMessage);
utl_file.fclose(file_handle);
END IF;
end;
其中logSwitch 是boolean型，我定义在包中的。如果直接用的话可以是procedure writeLog(logMessage in Varchar2, logSwitch in boolean )