DBI: The Neophyte’s Guide

Example 1


•	This example connects to a single Oracle database

	called DEV

#!/usr/bin/perl -w

### Load the DBI module

use DBI;

### Perform the connection using the Oracle driver

$dbh = DBI->connect( "dbi:Oracle:DEV", "username",

"password" )

or die "Can't connect to Oracle database: $DBI::errstr\n";

### Disconnect from the database

$dbh->disconnect();

exit;