当前位置：文江博客话题详情

使用 perl 将 blob 插入 oracle DB

发布于 2024-12-06 18:14:34 字数 69 浏览 3 评论 0原文

这有可能吗？我在网上看到的参考资料表明应该使用存储过程，但我有一个脚本需要将压缩数据插入数据库。如果有的话我该怎么办？谢谢

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

圈圈圆圆圈圈 2024-12-13 18:14:34

您需要使用 DBD::Oracle 模块，

use DBD::Oracle qw(:ora_types);

并且在绑定参数时不要忘记指定 ora_type

$sth = $dbh->prepare("insert ...");
$sth->bind_param($field_num, $lob_value, { ora_type => ORA_LOB });
$sth->execute

$lob_value 是一个标量变量，包含文件的内容。

You need to use DBD::Oracle module,

use DBD::Oracle qw(:ora_types);

and when you bind the params don't forget tho specify the ora_type

$sth = $dbh->prepare("insert ...");
$sth->bind_param($field_num, $lob_value, { ora_type => ORA_LOB });
$sth->execute

The $lob_value is a scalar variable with the contents of your file.

回复收藏 0 原文

回眸一遍 2024-12-13 18:14:34

我无法让 Miguel 的示例运行，因为我安装的 Perl 没有 ORA_LOB oracle 类型。这是一个对我有用的例子。

为了简洁起见，我使用硬编码值和内部数据库子例程，因此您显然需要将代码集成到您的环境中。

use strict;
use DBI;
use DBD::Oracle qw(:ora_types);
require "lib.pl";    #contains getDBConnection() and myExit()

our $dbh = getDBConnection();

my $lob_value;
open FILE, "D:/Inet/wwwroot/tmpcharts/data.xls" or myExit("Failed to open input file: $!\n");
binmode FILE;
$lob_value .= $_ while(<FILE>);
close FILE;

my $sth = $dbh->prepare("update x_trl_test_files set doc=? where file_id=6");
$sth->bind_param(1, $lob_value, { ora_type => ORA_BLOB });
$sth->execute;
$dbh->commit;

myExit();

I couldn't get Miguel's example to work since my installation of Perl doesn't have an ORA_LOB oracle type. Here's an example that works for me.

For the sake of brevity I'm using hard coded values and internal db subroutines so you'll obviously need to integrate the code into your environment.

use strict;
use DBI;
use DBD::Oracle qw(:ora_types);
require "lib.pl";    #contains getDBConnection() and myExit()

our $dbh = getDBConnection();

my $lob_value;
open FILE, "D:/Inet/wwwroot/tmpcharts/data.xls" or myExit("Failed to open input file: $!\n");
binmode FILE;
$lob_value .= $_ while(<FILE>);
close FILE;

my $sth = $dbh->prepare("update x_trl_test_files set doc=? where file_id=6");
$sth->bind_param(1, $lob_value, { ora_type => ORA_BLOB });
$sth->execute;
$dbh->commit;

myExit();

回复收藏 0 原文

~没有更多了~