#! /bin/perl
use strict;
use DBI;
use DBD::ODBC;
DBI->trace(DBD::ODBC->parse_trace_flag('odbcconnection'));
my $dbh = DBI->connect('dbi:ODBC:nhitest','delli28','XXXXXXX');
my $sth = $dbh->prepare("SELECT * FROM dbc.databases");
$sth->execute;
while (my $row = $sth->fetchrow_hashref) {
print "Name: $$row{DatabaseName}, Owner: $$row{OwnerName}\n";
#print "Name: $$row{TABNAME}, Owner: $$row{OWNER}\n";
}
$dbh->disconnect;
The results look as follows:
delli28@apsa9012:/u/delli28> test2.pl
non-Unicode login6
dbd_db_login6
SQLDriverConnect 'nhitest', 'delli28', 'xxxx'
SQLConnect 'nhitest', 'delli28'
Turning autocommit on
Illegal instruction
isql output looks as follows:
delli28@apsa9012:/u/delli28> isql -v nhitest delli28 XXXXXXX
+---------------------------------------+
| Connected! |
| |
| sql-statement |
| help [tablename] |
| quit |
| |
+---------------------------------------+
SQL> select DatabaseName from DBC.Databases
+-------------------------------+
| DatabaseName |
+-------------------------------+
| gkopf |
...
|