Actually, if you want the *whole* DBI dsn:
use DBI;
$dbh = DBI->connect($dsn, $user, $password);
print 'dbi:', $dbh->{Driver}->{Name}, ':', $dbh->{Name}, "\n";
----- Original Message -----
From: "Jeff Zucker" <[EMAIL PROTECTED]>
To: "Brian McCauley" <[EMAIL PROTECTED]>; "dbi-users" <[EMAIL PROTECTED]>
Sent: Friday, May 30, 2003 9:24 AM
Subject: Re: Getting DSN back from $dbh
> Brian McCauley wrote:
>
> >Is there any way I can recover the DSN from $dbh?
> >
>
> my $dbh = DBI->connect($dsn,$u,$p,{f_dsn=>"$dsn"});
> #...
> print $dbh->{f_dsn};
>
> Yeah, I know, you probably already thought of that and are looking for
> something better, but AFAIK there isn't such a thing unless a particular
> DBD does the equivalent of the above itself in the connect().
>
> --
> Jeff
