Help for this page

Select Code to Download


  1. or download this
    $ echo $TWO_TASK
dbo_xyz0123
...
Attempting to contact ( DESCRIPTION = ( ADDRESS_LIST = ( ADDRESS = ( H
+OST = dbo)( PORT = 1521)( PROTOCOL = TCP))) ( CONNECT_DATA = ( SERVIC
+E_NAME = xyz0123)))
OK (620 msec)
$
  2. or download this
    use DBI;

my $dbh = DBI->connect ("dbi:Oracle:", $user, $pass, { RaiseError => 1
+, PrintError => 1});