Executing PL/SQL packages in Perl

--0-1696346788-1131536210=:91772
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit

Hi all,
Can anybody tell me how to execute a PL/SQL package from Perl through a small example?

Thanks in advance,
Lokesh



---------------------------------
Yahoo! FareChase - Search multiple travel sites in one click.
--0-1696346788-1131536210=:91772--

Re: Executing PL/SQL packages in Perl

The DBD::Oracle perl module documentation has this

http://search.cpan.org/dist/DBD-Oracle/Oracle.pm#PL/SQL_Exam ples=20

HTH.

Hardy Merrill

>>> logesh kumar 11/9/2005 6:36 AM >>>
Hi all,
Can anybody tell me how to execute a PL/SQL package from Perl =
through a small example?
=20
Thanks in advance,
Lokesh
=20

=09
---------------------------------
Yahoo! FareChase - Search multiple travel sites in one click. =20

RE: Executing PL/SQL packages in Perl

-----Original Message-----
From: logesh kumar [mailto:vt9132004@yahoo.com]=20
Sent: Wednesday, November 09, 2005 6:37 AM
To: dbi-users@perl.org
Subject: Executing PL/SQL packages in Perl

Hi all,
Can anybody tell me how to execute a PL/SQL package from Perl
through a small example?
=20
Thanks in advance,
Lokesh
=20
Here is a small example of a call to a function...


my $results;
my $sth_func =3D $dbh->prepare(
q{BEGIN
:results :=3D ACTUAL_DATA.IMC_DAILY_JOBS;
END;})
or &MyDieBatch('Prepare failed', 89, __LINE__);
$sth_func->bind_param_inout(':results',\$results, 256);
$sth_func->execute or &MyDieBatch('Execute failed', 89, __LINE__);
&MyDieBatch("IMC_DAILY_JOBS failed: $results" , 89, __LINE__) if
$results ne 'OK';


Hope this helps...
jwm

RE: Executing PL/SQL packages in Perl

I like to use the DBIx::ProcedureCall module from CPAN. It provides =
nice syntactic glue around the necessary DBI calls for invoking PL/SQL =
functions and procedures.

Ted Behling

-----Original Message-----
From: logesh kumar [mailto:vt9132004@yahoo.com]
Sent: Wednesday, November 09, 2005 6:37 AM
To: dbi-users@perl.org
Subject: Executing PL/SQL packages in Perl


Hi all,
Can anybody tell me how to execute a PL/SQL package from Perl =
through a small example?
=20
Thanks in advance,
Lokesh
=20

=09
---------------------------------
Yahoo! FareChase - Search multiple travel sites in one click. =20