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

      

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

   很久之前写了《关于UTL_FILE包体的使用》，那个脚本需要手工维护文件名列表，比较麻烦，后来一直想能否自动读取指定目录下的文件名，然后使用我那个UTL_FILE过程读取文件内容。有试过使用ls 命令进行重定向到日志文件，并配合Linux的定时任务(crontab)来解决，后来由于工作原因停止了测试，最后不了了之。前天看了盖老大的《循序渐进ORACLE》，发现了"9.6 获取操作系统文件列表"一节(P383)，颇感意外，欣喜异常。适逢周末，决定小试一把。

1.创建临时表

create global temporary table crm.dirlist(     filename varchar2(255),     filesize number,     filedate date) on commit delete rows; /

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

2.创建JAVA SOURCE过程

此过程用户访问操作系统目录并读取文件列表.

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 crm.dirlist(filename, filesize, filedate)      values(:fileName,:fileSize,to_date('01/01/1970','mm/dd/yyyy')+:fileDate/(24*60*60*1000))};    }   } }

3.创建ORACLE存储过程

此过程用于调用和执行JAVA存储过程(DirList)

CREATE OR REPLACE PROCEDURE CRM.p_get_dir_list(i_directory IN VARCHAR2) AS   LANGUAGE JAVA NAME 'DirList.getList(java.lang.String)';

4.执行p_get_dir_list过程获取数据

SQL> exec crm.p_get_dir_list('E:/割接/10_Transition_SVN_NEW/1_C网在用提取脚本/2.三户'); begin crm.p_get_dir_list('E:/割接/10_Transition_SVN_NEW/1_C网在用提取脚本/2.三户'); end; ORA-29532: Java 调用被未捕获的 Java 异常错误终止: java.security.AccessControlException: the Permission (java.io.FilePermission E:/割接/10_Transition_SVN_NEW/1_C网在用提取脚本/2.三户 read) has not been granted to CRM. The PL/SQL to grant this is dbms_java.grant_permission( 'CRM', 'SYS:java.io.FilePermission', 'E:/割接/10_Transition_SVN_NEW/1_C网在用提取脚本/2.三户', 'read' ) ORA-06512: 在 "CRM.GET_DIR_LIST", line 1 ORA-06512: 在 line 2

执行时出错，提示无权限。这里耽误了很久，搜索了很多关于这个错误的帖子，都未提到解决办法。后来根据这个错误提示，用SYS执行：

SQL> exec dbms_java.grant_permission( 'CRM', 'SYS:java.io.FilePermission', 'E:/割接/10_Transition_SVN_NEW/1_C网在用提取脚本/2.三户', 'read' ); PL/SQL procedure successfully completed SQL> exec dbms_java.grant_permission( 'CRM', 'SYS:java.io.FilePermission', 'E:/割接/10_Transition_SVN_NEW/1_C网在用提取脚本/2.三户/*', 'read' ); PL/SQL procedure successfully completed

此处需要用SYS用户执行dbms_java.grant_permission分别授权目录和目录文件列表(*代替即可)访问权限给指定用户。然后执行：

SQL> exec crm.p_get_dir_list('E:/割接/10_Transition_SVN_NEW/1_C网在用提取脚本/2.三户'); PL/SQL procedure successfully completed

5.查询文件列表信息

SQL> col FILESIZE for a20 SQL> col FILENAME for a40 SQL> col FILEDATE for a30 SQL> select * from crm.dirlist; FILENAME                                                                FILESIZE            FILEDATE ------------------------------------------------------ ---------------------------- ------------------------------ .svn                                                                                  0                 2008-11-7 1:55:23 2.1--中间表数据倒换脚本-客户数据.sql                        9355                 2008-10-9 3:35:34 2.10--中间表数据倒换脚本-客户扩展.sql                      5833                 2008-10-8 7:02:30 2.2--中间表数据倒换脚本-帐户数据.sql                        3993                 2008-11-4 3:35:13 2.3--中间表数据倒换脚本-产品.sql                               3501                 2008-11-7 1:45:41 2.4--中间表数据倒换脚本-商品.sql                             12432                 2008-11-4 8:26:33 2.5--中间表数据倒换脚本-产品特性.sql                      20027                 2008-11-4 8:27:35 2.6--中间表数据倒换脚本-商品关联.sql                        1827                 2008-10-8 7:02:30 2.7--中间表数据倒换脚本-帐务数据.sql                        4887                 2008-10-13 7:43:28 2.8--中间表数据倒换脚本-商品担保.sql                        5775                 2008-10-22 2:57:30 2.9--中间表数据倒换脚本-客户联系人.sql                     2548                2008-10-9 9:22:12 11 rows selected

 

The result is very perfect!盖老大功力窥然可见，佩服，佩服！