Oracle PLSQL 读文件与写文件

        本文转自 http://hi.baidu.com/greatwqs/item/95c03c118b364a8e88a956c2 

 

程序1:写入文件

CREATE OR REPLACE PROCEDURE FILE_WRITE
/******************************************************************************
中文名称: 测试输出文件的效果
调用方法: FILE_WRITE
作       者: 王青松
创建时间: 2010-07-30
数据版本: Oracle 10
输入参数: 无
输出参数: 无
简要说明: 把表AA的信息,保存到磁盘上面/oradata/MODAT/example.txt的文件中
修改记录: 无
******************************************************************************/
IS
fileID utl_file.file_type;
BEGIN
   fileID := utl_file.fopen('/oradata/MODAT', 'example.txt', 'a');
   --最后一个参数的选择意义: w 写模式,r 只读 ,a 表示追加
  
   -- AA表的字段有A,B两个字段.
   for REC in ( select A , B from AA)
   loop
     utl_file.put_line(fileID , REC.A ||','||REC.B);
     --表示A字段和B字段
   end loop;
   utl_file.fclose(fileID);
   if utl_file.is_open(fileID) then      
      UTL_FILE.FCLOSE (fileID);
   end if;
  
END FILE_WRITE;

程序2:读文件

CREATE OR REPLACE PROCEDURE FILE_READ
/******************************************************************************
中文名称: 测试文件内容的读取操作/oradata/MODAT/example.txt
调用方法: FILE_READ
作    者: 王青松
创建时间: 2010-07-30
数据版本: Oracle 10
输入参数: 无
输出参数: 无
简要说明: 文件的输出简要测试
修改记录: 无
******************************************************************************/
IS
vInHandle utl_file.file_type ;
vNewLine VARCHAR2(250);
BEGIN
vInHandle := utl_file.fopen ('/oradata/MODAT', 'example.txt', 'R');
-----------------------------文件夹地址,       要读取文件名   读取
LOOP
BEGIN
    utl_file.get_line (vInHandle, vNewLine);
    dbms_output.put_line(vNewLine);
EXCEPTION
WHEN OTHERS THEN
     EXIT;
END;
END LOOP;
utl_file.fclose (vInHandle);

END FILE_READ;

程序3:表AA:


SQL> desc AA
Name Type        Nullable Default Comments
---- ----------- -------- ------- --------
A    INTEGER     Y                        
B    VARCHAR2(2) Y                        

SQL>

结果:依次插入数据到表,调用FILE_WRITE,再FILE_READ,结果显示如下:

1,v
1,c
2,e
2,r
3,t
4,t
4,y
5,y
1,v
1,c
2,e
2,r
3,t
4,t
4,y
5,y
1,v
1,c
2,e
2,r
3,t
4,t
4,y
5,y

  • 0
    点赞
  • 5
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
在Perl中链接Oracle数据库并调用PL/SQL来判断文件是否存在的方法如下: 首先,你需要安装适用于Perl的Oracle数据库驱动程序。你可以从Oracle官方网站下载并安装适用于你的操作系统和Perl版本的驱动程序\[1\]。 接下来,你可以使用Perl的DBI模块来连接Oracle数据库。你需要提供数据库的连接信息,如数据库名称、用户名和密码。以下是一个连接Oracle数据库的示例代码: ```perl use DBI; my $db_name = 'your_database_name'; my $username = 'your_username'; my $password = 'your_password'; my $dbh = DBI->connect("dbi:Oracle:$db_name", $username, $password) or die "Unable to connect: $DBI::errstr"; ``` 一旦成功连接到数据库,你可以使用DBI模块的prepare和execute方法来执行PL/SQL语句。以下是一个调用PL/SQL判断文件是否存在的示例代码: ```perl my $file_name = 'your_file_name'; my $sql = "BEGIN IF DBMS_LOB.FILEEXISTS('$file_name') = 1 THEN DBMS_OUTPUT.PUT_LINE('File exists'); ELSE DBMS_OUTPUT.PUT_LINE('File does not exist'); END IF; END;"; my $sth = $dbh->prepare($sql); $sth->execute(); ``` 在上面的代码中,你需要将`your_file_name`替换为你要判断的文件名。PL/SQL代码使用了`DBMS_LOB.FILEEXISTS`函数来判断文件是否存在,并通过`DBMS_OUTPUT.PUT_LINE`函数输出结果。 最后,你可以使用DBI模块的fetch方法来获取PL/SQL语句的输出结果。 ```perl while (my @row = $sth->fetchrow_array) { print join(', ', @row), "\n"; } ``` 请注意,你需要根据实际情况修改上述代码中的数据库连接信息和文件名。 希望以上信息对你有帮助!\[1\]\[2\] #### 引用[.reference_title] - *1* *2* *3* [连接ORACLE数据库,是不是必须要安装oracle客户端的运行时](https://blog.csdn.net/weixin_36165049/article/details/116508888)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^control_2,239^v3^insert_chatgpt"}} ] [.reference_item] [ .reference_list ]

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值