| Example
3 |
|
|
|
|
|
|
|
|
|
|
|
|
|
| • | This
example demonstrates connecting to two |
|||||||||||
| different
databases of different types |
||||||||||||
| #!/usr/bin/perl
-w |
||||||||||||
| ### Load
the DBI module |
||||||||||||
| use DBI; |
||||||||||||
| ###
Perform the connection using the Oracle driver |
||||||||||||
| $dbh1 =
DBI->connect( "dbi:Oracle:DEV", "username",
"password" ) |
||||||||||||
| or die "Can't connect to Oracle
database: $DBI::errstr\n"; |
||||||||||||
| $dbh2 =
DBI->connect( "dbi:mSQL:host:dbname:1114",
"username", "password" ) |
||||||||||||
| or die "Can't connect to mSQL
database: $DBI::errstr\n"; |
||||||||||||
| $dbh1->disconnect(); |
||||||||||||
| $dbh2->disconnect(); |
||||||||||||
| exit; |
||||||||||||