| Example
2 |
|
|
|
|
|
|
|
|
|
|
|
|
| • | This
example connects to two Oracle databases |
||||||||||
| simultaneously |
|||||||||||
| #!/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 1st
Oracle database: $DBI::errstr\n"; |
|||||||||||
| $dbh2 =
DBI->connect( "dbi:Oracle:OTHERDB", "username2",
"password2" ) |
|||||||||||
| or die "Can't connect to 2nd
Oracle database: $DBI::errstr\n"; |
|||||||||||
| $dbh1->disconnect(); |
|||||||||||
| $dbh2->disconnect(); |
|||||||||||
| exit; |
|||||||||||