I'm trying to access a Pg database from Perl.
I do have the Pg database driver installed, as far as I know.
The result of a driver_available() script is as follows:
[rupert@localhost Jobserve]$ ~/Scripts/available_DBI.pl
Available DBI Drivers and Data Sources:
ExampleP
dbi:ExampleP:dir=.
Pg
dbi:Pg:dbname=Jobserve
dbi:Pg:dbname=pgperltest
dbi:Pg:dbname=template1
Proxy
No known data sources
The part in my script that I'm concerned with is :-
--------------------------------------------------------------
**** MY LINE *****
main::(/home/rupert/Scripts/permanent.pl:70):
70: $dbh = DBI->connect('dbi:Pg:dbname=Jobserve','postgres','postgres')
71: or die $dbh->errorMessage;
**** THESE LINES NOT IN MY SCRIPT ****
DB<4> s
DBI::connect(/usr/lib/perl5/site_perl/5.6.0/i386-linux/DBI.pm:419):
419: my $class = shift;
DB<4> s
DBI::connect(/usr/lib/perl5/site_perl/5.6.0/i386-linux/DBI.pm:420):
420: my($dsn, $user, $pass, $attr, $old_driver) = @_;
DB<4>
DBI::connect(/usr/lib/perl5/site_perl/5.6.0/i386-linux/DBI.pm:421):
421: my $driver;
DB<4>
DBI::connect(/usr/lib/perl5/site_perl/5.6.0/i386-linux/DBI.pm:422):
422: my $dbh;
DB<4>
DBI::connect(/usr/lib/perl5/site_perl/5.6.0/i386-linux/DBI.pm:425):
425: ($old_driver, $attr) = ($attr, $old_driver) if $attr and
!ref($attr);
DB<4>
DBI::connect(/usr/lib/perl5/site_perl/5.6.0/i386-linux/DBI.pm:427):
427: my $connect_meth = (ref $attr) ? $attr->{dbi_connect_method} :
undef;
DB<4>
DBI::connect(/usr/lib/perl5/site_perl/5.6.0/i386-linux/DBI.pm:428):
428: $connect_meth ||= $connect_via; # fallback to default
------------------------------------------------------------------
Previously when I didn't have the Pg driver installed, my script
launched perl code to install a driver.
I used CPAN to install the Pg driver, so I'm hoping that it's installed
correctly!
Any guidance as to whether the above is correct, or what I'm doing
wrong??
--
regs
rupert
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
