Re: absolute newbie: perl-cgi+oracle

From: Johny Tom Nishanth Alphonse <jta01_at_doc.ic.ac.uk>
Date: Thu, 26 Sep 2002 15:08:46 +0100
Message-ID: <Pine.LNX.4.42.0209261505160.22133-100000@moa.doc.ic.ac.uk>

Hi,
Thanks for the reply. I looked on the web and when I used the following connect string, it works now:
my $dbh =
DBI->connect('DBI:Oracle:host=localhost;sid=odb;port=1521','Nishanth','Nishanth');

cheers,
A.Nishanth

On Thu, 26 Sep 2002, Vladislav Serbin wrote:

>Hi! See below-
>
>#!/usr/bin/perl -w
>use DBI;
>use CGI;
>use CGI::Carp('fatalsToBrowser');
>print "Content-type:text/html\n\n";
>print <<EHTML;
><html>
><head>
><title>Sequence retriever</title>
></head>
><body>
>EHTML
>my $dbh =
>DBI->connect("dbi:Oracle:my_test","system",pwd,{ RaiseError => 1, AutoCommit
>=> 1 }) ||
>die("Nope. Didn't make it\n");
>my $sth = $dbh->prepare(qq{
>SELECT * FROM SYS.USER_SEQUENCES});
>$sth->execute();
>while(@data = $sth->fetchrow_array()){
>print "@data\n ";
>}
>$sth->finish;
>$dbh->disconnect;
>print <<EHTML;
></body>
></html>
>EHTML
>
>/* output -
>
>Content-type:text/html
>
><html>
><head>
><title>Sequence retriever</title>
></head>
><body>
>REPCAT$_FLAVORS_S 1 999999999999999999999999999 1 N N 0 1
> REPCAT$_REFRESH_TEMPLATES_S 1 999999999999999999999999999 1 N N 20 1
> REPCAT$_REPPROP_KEY 1 999999999999999999999999999 1 N N 20 1
> REPCAT$_RUNTIME_PARMS_S 1 999999999999999999999999999 1 N N 20 1
> REPCAT$_TEMPLATE_OBJECTS_S 1 999999999999999999999999999 1 N N 20 1
> REPCAT$_TEMPLATE_PARMS_S 1 999999999999999999999999999 1 N N 20 1
> REPCAT$_TEMPLATE_SITES_S 1 999999999999999999999999999 1 N N 20 1
> REPCAT$_TEMP_OUTPUT_S 1 999999999999999999999999999 1 N N 20 1
> REPCAT$_USER_AUTHORIZATIONS_S 1 999999999999999999999999999 1 N N 20 1
> REPCAT$_USER_PARM_VALUES_S 1 999999999999999999999999999 1 N N 20 1
> REPCAT_LOG_SEQUENCE 1 999999999999999999999999999 1 N N 20 1
> </body>
></html>
>........................
>Best regards,
>Vladislav Serbin
>Oracle DBA
>
>
>
>
Received on Thu Sep 26 2002 - 09:08:46 CDT