First you need to source one of the setup files in ~glast/oracle/bin/

  • On a 32-bit machine, use one of the setup-32.* scripts
  • On a 64-bit machine, use one of the setup.* scripts
  • use setup*.sh for bash or setup*.csh for c-shell

Once that's done, you can use the following as a template to connect without password to your desired database:

#!/usr/local/bin/perl
use DBI;
 
my $database = "GLASTGENDEV";  # not case sensitive, "glastgendev" would also work

my $dbh = DBI->connect("dbi:Oracle:$database")
    or die "Can't connect to Oracle";

print "Connection successful!\n";

my $sth = $dbh->prepare('select SYSTIMESTAMP from dual')
    or die "Couldn't prepare statement: " . $dbh->errstr;
$sth->execute()
    or die "Couldn't execute statement: " . $sth->errstr;

my $sysdate = ($sth->fetchrow_array())[0];

$sth->finish()
    or die "Couldn't close statement: " . $sth->errstr;

print "The date according to Oracle is: $sysdate\n";

$dbh->disconnect;
exit;

Possible values for the variable $database can be found in ~glast/oracle/admin/tnsnames.ora

  • No labels