First you need to source one of the setup files in ~glast/oracle/bin/
Once that's done, you can use the following as a template to connect without password to your desired database:
Code Block |
---|
#!/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