If it is a uniox box, script would look like this:
#!/usr/bin/perl -w
use strict;
use DBI;
print "DBI Version is:", $DBI::VERSION,"\n";
my @drivers=DBI->available_drivers();
foreach (@drivers) {
if ( /oracle/i ) {
use DBD::Oracle;
print "Oracle driver version is:",$DBD::Oracle::VERSION,"\n";
}
}
> -----Original Message-----
> From: Goulet, Dick [SMTP:DGoulet_at_vicr.com]
> Sent: Wednesday, September 01, 2004 3:10 PM
> To: oracle-l_at_freelists.org
> Subject: Perl:DBI
>
> While we're on the subject of Perl, being a perl novice of the lowest =
> order, I have a duhveloper whose trying to write a cgi script that =
> invokes perl. Anyone got a quick way to verify that the perl:dbi module =
> is installed & working correctly??
>
> Dick Goulet
> Senior Oracle DBA
> Oracle Certified 8i DBA
>
> ----------------------------------------------------------------
> Please see the official ORACLE-L FAQ: http://www.orafaq.com
> ----------------------------------------------------------------
> To unsubscribe send email to: oracle-l-request_at_freelists.org
> put 'unsubscribe' in the subject line.
> --
> Archives are at http://www.freelists.org/archives/oracle-l/
> FAQ is at http://www.freelists.org/help/fom-serve/cache/1.html
> -----------------------------------------------------------------
To unsubscribe send an email to: oracle-l-request_at_freelists.org
and put 'unsubscribe' in the subject line.
Recent messages - http://freelists.org/archives/oracle-l/09-2004
Received on Thu Sep 02 2004 - 01:51:22 CDT