Help for this page

Select Code to Download

Select or download this

#!/opt/perl-5.8.2/bin/perl

use threads;
...
sub do_db {
        my $dbh = DBI->connect("dbi:Oracle:host=localhost;sid=testdb1"
+, "user1", "pass1") || die $!;
}

Select or download this

#!/opt/perl-5.8.2/bin/perl

use threads;
...
sub do_db {
        my $dbh = DBI->connect("dbi:Oracle:host=localhost;sid=testdb1"
+, "user1", "pass1", { ora_dbh_share => \$orashr} ) || die $!;
}