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

[Prakash Inuganti -X \(pinugant - Digital-X, Inc. at Cisco\)]

Thanks a lot Philip. That worked without any issues. 


Thanks
Prakash

-----Original Message-----
From: Garrett, Philip (MAN-Corporate)
[mailto:[EMAIL PROTECTED] 
Sent: Thursday, July 06, 2006 9:21 AM
To: Prakash Inuganti -X (pinugant - Digital-X, Inc. at Cisco);
dbi-users@perl.org
Subject: RE: How to read CLOB return value of Stored Function in Perl

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