oracle 获取操作系统目录下文件列表

-- Oracle存储过程获取操作系统目录下文件列表

-- 1). 创建临时表 
eygle@SZTYORA> create global temporary table dirlist(
    filename varchar2(255),
    filesize number,
    filedate date) 
on commit delete rows;
/

-- 创建临时表保存文件列表信息。此处使用临时表的好处是：循环取文件列表时无需对表进行清空处理。

-- 2). 创建JAVA SOURCE过程

-- 此过程用户访问操作系统目录并读取文件列表. 
eygle@SZTYORA> create or replace and compile java source named DirList as
import java.io.*;
import java.sql.*;
public class DirList
{
public static void getList(String directory) throws SQLException
{
   File path=new File(directory);
   String[] fileList=path.list();
   String fileName;
   long fileSize;
   long fileDate;
   for (int i=0;i<fileList.length; i++)
   {
     fileName=fileList[i];
     File fpath=new File(directory+'/'+fileName);
     fileSize=fpath.length();
     fileDate=fpath.lastModified();
     #sql{insert into dirlist(filename, filesize, filedate) 
     values(:fileName,:fileSize,to_date('01/01/1970','mm/dd/yyyy')+:fileDate/(24*60*60*1000))};
   }
}
}
/

-- 3). 创建ORACLE存储过程

-- 此过程用于调用和执行JAVA存储过程(DirList) 
eygle@SZTYORA> create or replace procedure get_dir_list( p_directory in varchar2 )
as language java
name 'DirList.getList( java.lang.String )';
/

-- 4). 执行p_get_dir_list过程获取数据 
eygle@SZTYORA> exec get_dir_list('/u01/app/oracle/admin/sztyora/bdump');

会出现以下错误：ERROR at line 1:
ORA-29532: Java call terminated by uncaught Java exception: java.security.AccessControlException: the Permission
(java.io.FilePermission /u01/app/oracle/admin/sztyora/bdump read) has not been granted to EYGLE. The PL/SQL to grant this is
dbms_java.grant_permission( 'EYGLE', 'SYS:java.io.FilePermission', '/u01/app/oracle/admin/sztyora/bdump', 'read' )
ORA-06512: at "EYGLE.GET_DIR_LIST", line 1
ORA-06512: at line 1

-- 执行时出错，提示无权限。这里耽误了很久，搜索了很多关于这个错误的帖子，都未提到解决办法。
-- 后来根据这个错误提示，用SYS执行： 
sys@SZTYORA> exec dbms_java.grant_permission( 'EYGLE', 'SYS:java.io.FilePermission', '/u01/app/oracle/admin/sztyora/bdump', 'read' );
PL/SQL procedure successfully completed

sys> exec dbms_java.grant_permission( 'EYGLE', 'SYS:java.io.FilePermission', '/u01/app/oracle/admin/sztyora/bdump/*', 'read' );
PL/SQL procedure successfully completed
 

-- 此处需要用SYS用户执行dbms_java.grant_permission分别授权目录和目录文件列表(*代替即可)访问权限给指定用户。
-- 然后执行： 
eygle@SZTYORA> exec get_dir_list('/u01/app/oracle/admin/sztyora/bdump');
PL/SQL procedure successfully completed

5.查询文件列表信息 

eygle@SZTYORA> col FILESIZE for 999999999999
eygle@SZTYORA> col FILENAME for a40
eygle@SZTYORA> col FILEDATE for a30
eygle@SZTYORA> select * from dirlist;
eygle@SZTYORA> select * from dirlist;

FILENAME                                      FILESIZE FILEDATE
---------------------------------------- ------------- ------------------------------
sztyora_lgwr_4299.trc                             1152 2010-07-16 06:01:08
sztyora_lgwr_5136.trc                              864 2010-07-20 00:24:30
sztyora_mmon_7121.trc                            48444 2010-07-14 06:11:42
sztyora_lgwr_15679.trc                             866 2010-07-13 06:28:29
sztyora_lgwr_4810.trc                             1374 2010-07-14 05:00:03
sztyora_lgwr_11407.trc                            1016 2010-07-12 08:44:36
sztyora_rvwr_3951.trc                              782 2010-07-21 00:29:22
sztyora_lgwr_3903.trc                             1014 2010-07-16 22:48:58
alert_sztyora.log                               219183 2010-07-21 00:29:33
sztyora_lgwr_4566.trc                             1180 2010-07-13 03:08:14
sztyora_lgwr_5443.trc                             1014 2010-07-19 08:17:55
sztyora_arc1_4597.trc                             2128 2010-07-13 03:06:16
sztyora_lgwr_5849.trc                             1071 2010-07-13 12:25:05
sztyora_lgwr_25369.trc                            1016 2010-07-16 23:59:23
sztyora_lgwr_5150.trc                             1014 2010-07-13 06:20:10
sztyora_arc0_7052.trc                            22373 2010-07-14 06:07:36
sztyora_arc0_4595.trc                              895 2010-07-13 03:07:15
sztyora_arc0_5184.trc                            18785 2010-07-13 06:17:26
sztyora_arc1_5186.trc                            34163 2010-07-13 06:16:26
sztyora_lgwr_4114.trc                             1152 2010-07-14 00:13:21
sztyora_lgwr_12266.trc                             866 2010-07-12 08:52:50
sztyora_lgwr_4695.trc                             1346 2010-07-15 05:40:37
sztyora_lgwr_5417.trc                             1042 2010-07-16 23:57:32
sztyora_lgwr_4617.trc                             1575 2010-07-14 15:27:18
sztyora_lgwr_3926.trc                             1002 2010-07-21 00:29:24
sztyora_arc1_7054.trc                            11264 2010-07-14 06:06:38
sztyora_lgwr_5950.trc                             1002 2010-07-15 13:39:58

27 rows selected.

注意：#sql{insert into dirlist(filename, filesize, filedate)
values(:fileName,:fileSize,to_date('01/01/1970','mm/dd/yyyy')+:fileDate/(24*60*60*1000))}; 

这里用了SQLJ语法。不用数据库连接，没有进行测试！