Perl connessione ad oracle (con e senza tsanames)

Premessa

e' necessario usare il modulo DBI, e potrebbe essere necessario installare il driver per oracle (vedi cpan install per approfondimenti)

Primo modo (usando il tsanames)

semplicemente si passa soltanto il sid e dbi si va a leggere sul tsanames ip porta etc
my $sid = "";
my $dbh = DBI->connect("dbi:Oracle:$sid", "username", "password");

Secondo modo (senza tsanames)

E' necessario specificare nel connect che gli si sta passando l'host il sid etc nel nome host ci dev'essere solo il nome host e verra' usata la porta di default di oracolo, se per qualche ragione la porta dovesse essere diversa analogamente a come si specifica host e sid, si dovra' passare nell'indirizzi anche il parametro "port=" seguito dal valore e separato da ;
my $host = "";
my $sid = "";
my $username = "";
my $password = "";
my $dbh = DBI->connect("dbi:Oracle:host=$host;sid=$sid", $username, $password);

Ora io non ho valorizzato le variabili, ma perche' mi sembrava chiaro cosa ci va dentro.