RE: How to read CLOB return value of Stored Function in Perl

[Garrett, Philip \(MAN-Corporate\)]

Prakash Inuganti -X (pinugant - Digital-X, Inc. at Cisco) wrote:
>
[snip]
>           my $sth = $self->{_dbh}->prepare(q{
>                       BEGIN
>                         :pid_str := f_load(:p1, :p2);
>                       END; });


There's no need to use PL/SQL procedural style here.  Just SELECT the
function, and Oracle will handle the CLOB part for you.

  local $dbh->{LongReadLen} = 2048000; # biggest blob

  my $sth = $dbh->prepare("select f_load(?,?) from dual")
      || die $dbh->errstr;
  $sth->execute($id,$type)
      || die $sth->errstr;
  my ($pid_str) = $sth->fetchrow;

Hth,
Philip