http://www.perlmonks.org?node_id=760864


in reply to Re: DBD::Oracle - OCILobRead error
in thread DBD::Oracle - OCILobRead error

I assigned the LongReadLen value like below and also i got the exact length, eventhough i am getting the same error.

my $new_sql = <<EOS;
        select <col_name> from <table_name>
EOS

$dbh->{LongReadLen} = $dbh->selectrow_array(qq{
      SELECT dbms_lob.getlength(<col_name>)
      FROM <table_name>
 });
print "CLOB Length: ".$dbh->{LongReadLen};
my $sth = $dbh->prepare($new_sql);
$sth->execute();
my @rows;
while(my $cols = $sth->fetchrow_hashref()) {
        push(@rows, $cols);
}
$sth->finish();

[download]

Anything wrong in that?

Regards,
Velusamy R.

eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

Replies are listed 'Best First'.
Re^3: DBD::Oracle - OCILobRead error
by runrig (Abbot) on Apr 29, 2009 at 16:09 UTC
    Just set it to an arbitrarily large value:
    $dbh->{LongReadLen} = 1024*1024; # or even another 1024*4

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom