Ключевые слова:database, oracle, perl, binary, (найти похожие документы)
Date: Mon, 09 Dec 2002 13:47:13 +0500
From: Konstantin Tokar <[email protected]>
Newsgroups: ftn.ru.perl
Subject: Пример для работы с Oracle Blob на Perl
> Дайте, плз, примерчик или (ссылку на) мануал для работы с блобами в БД.
> Как сохранить и как получить. Из perldoc DBI и perldoc DBD::oralce по
> поводу блобов ничего не понял...
Примеров полно в DBD::Oracle и DBI, но первое что надо проверить -
установлен ли у тебя DBD::Oracle для Oracle8 - в AS по-умолчанию
оказывается иногда для Oracle7, а там блобы были другие.
#!perl -w
use strict;
use DBI;
use DBD::Oracle qw(:ora_types);
# сначала создать таблицу - create table a ( a blob );
my $dbh = DBI->connect(...)
or die "Unable to connect: $DBI::errstr";
$dbh->{RaiseError} = 1;
my $data = 'data ' x 10000;
$dbh->{LongReadLen} = 100000;
my $sth_insert = $dbh->prepare("insert into a(a) values (?)");
$sth_insert->bind_param(1, $data, { ora_type => ORA_BLOB });
$sth_insert->execute();
my ($result) = $dbh->selectrow_array("select * from a");
print $result;
$dbh->do("delete from a");