Re^2: DBD::ODBC to Teradata

[DanEllison]

My script looks as follows:

#! /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                         |
...