सुनिश्चित नहीं है कि यह मदद करता है, लेकिन निम्नलिखित ने मेरे लिए काम किया:
tnsnames.ora ($ORACLE_HOME/network/admin निर्देशिका के अंदर) का उपयोग करके स्थानीय रूप से कनेक्ट करने के लिए:
my $db = DBI->connect( "dbi:Oracle:mydatabase", "scott", "tiger" );
और tnsnames.ora का उपयोग न करने के लिए कनेक्ट करने के लिए:
my $db = DBI->connect("dbi:Oracle:host=$host;sid=$sid;port=1521",$user,$passwd)
|| die( $DBI::errstr . "\n" );
जहां $host, $sid को पहले से परिभाषित किया जाना है।
