Acces to Oracle from ipl script

Gery

Hi,
I need to access to Oracle81 database from ipl perl script. The script is the follow:

****************************************************
use DBI;
use strict;

$ENV{ORACLE_HOME} = "d:\oracle\ora81";
$ENV{ORACLE_SID} = "GV";

$conn = DBI->connect ( 'dbiracle:host=192.168.197.17;sid=GV', 'Q66B', 'Q66B');
$stm = $conn->prepare("select XML_002 from Q6602T00");
$stm->execute();
while( @data = $stm->fetchrow_array() ) {
push(@reg,$data[0]);
}
$stm->finish();
$conn->disconnect();
****************************************************

Config: TeamSite 6.0 and Windows 2000

I get the follow error message:

Global symbol "$conn" requires explicit package name at \iw-home\opendeploy\solutions\perl\mailing-eraikal.ipl line 74.
Global symbol "$stm" requires explicit package name at \iw-home\opendeploy\solutions\perl\mailing-eraikal.ipl line 75.
Global symbol "@data" requires explicit package name at \iw-home\opendeploy\solutions\perl\mailing-eraikal.ipl line 77.
Global symbol "@reg" requires explicit package name at \iw-home\opendeploy\solutions\perl\mailing-eraikal.ipl line 79.

Could anyone help me. Any idea?
Regards

JonathonG

Right now, you've got basic Perl syntax problems. Near the top of your script you do:

use strict;

That's good. But it means the perl compiler is going to be strict and make you do things the "right" way. Specifically, the errors you are getting are because you have failed to declare your variables before attempting to use them (on lines 74,75,77 and 79). More than likely, this is what you want:

my $conn = DBI->connect ( 'dbiracle:host=192.168.197.17;sid=GV', 'Q66B', 'Q66B');
my $stm = $conn->prepare("select XML_002 from Q6602T00");
$stm->execute();
my @reg = ();
while( my @data = $stm->fetchrow_array() ) {
push(@reg,$data[0]);
}
$stm->finish();
$conn->disconnect();

Notice the stuff I've placed in blue above. The one caveat I would put on this is that it would seem that what you posted is different than the real code you have, since the error messages were from lines 70 something and there's only about 10 lines in what you posted. So, you may have other places where you declare variables, but the error messages indicate that those 4 haven't been declared.

HTH,

Jonathon
Independent Interwoven Contractor