Help for this page

Select Code to Download

Select or download this

use DBI;
OpenDatabaseConnections(); # nothing special with RaiseError = 1
...
$sth->execute();
$char_locator = $sth->fetchrow_array() 
  or die "ERROR: " . $sth->errstr . "\n";

Select or download this

my $chunksize = 1024;
my $offset = 1;
my $data = $dbh->ora_lob_read($char_locator, $offset, $chunksize)
  or die "ERROR: " . $sth->errstr . "\n";