Perl with Teradata ODBC

The most common approach for getting Perl on Windows platform is the installation of one of the available Win32 Perl distributions such, as ActivePerl (refer to [ACTIVE PERL]).

2.2Rebuild DBD::ODBC on UNIX

cd /opt/ActivePerl-5.16/lib/auto/DBD
mkdir ODBC.original
mv ODBC/* ODBC.original
cd /tmp
tar -xvf DBD-ODBC-1.52.tar
cd DBD-ODBC-1.52

$myodbc = 'intersolve'
if !$myodbc && -f "$odbchome/include/qeodbc.h";

$myodbc = 'intersolve'
if !$myodbc && -f "$odbchome/include/sqlunx.h";

($myodbc, $odbclibdir) = find_iodbc($odbchome) if !$myodbc;

print {$sqlhfh} qq{#include <qeodbc.h>\n};
if (-f "$odbcincdir/sql.h") {
    print "You seem to have the official header files.\n";
    $opts{INC} .= " -I$odbcincdir";
    print {$sqlhfh} qq{#include <sql.h>\n#include <sqltypes.h>\n#include <sqlext.h>\n
};

$opts{DEFINE} = "";
if (-f "$odbchome/include/sql.h") {
    print "You seem to have the official DataDirect header files.\n";
    $opts{INC} .= " -I$odbchome/include";
    print {$sqlhfh} qq{#include <sql.h>\n#include <sqltypes.h>\n#include <sqlext.h>\n#include <sqlucode.h>\n
};

# # try and find unixODBC's odbc_config binary
# if (!$myodbc) {
#     ($myodbc, $myodbc_version, $odbchome, $odbcincdir, $odbclibdir) =
#         unixodbc_config($odbchome);
# }
# if (!$myodbc) {
#     # try and find iODBC's iodbc_config binary
#     ($myodbc, $myodbc_version, $odbchome,
#      $odbcincdir, $odbclibdir) = iodbc_config($odbchome);
# }

export ODBCHOME=/opt/teradata/client/15.10
export DBI_DSN=dbi:ODBC:Payroll
export DBI_USER=user
export DBI_PASS=password

/opt/ActivePerl-5.16/bin/perl Makefile.PL

/opt/ActivePerl-5.16/bin/perl Makefile.PL
Make
make test          ### optional
make install

2.3Create Sample Data

1. Connect to the database using connect() function;
2. Prepare a request for execution with prepare() function;
3. Run a query using execute() function;
4. Retrieve data (for queries containing SQL select command) with fetch() function;
5. Finalize the work with the database with finish() and disconnect() functions.

use DBI;

my $connection = DBI->connect('dbi:ODBC:Payroll', '', '')
or die "Connect failed: " . DBI->errstr;

$connection->do('drop table employee');

my $statement =  $connection->prepare("INSERT INTO employee (employee_number, last_name, first_name) VALUES (?,?,?)")
or die "Couldn't prepare statement: " . $connection->errstr;

$statement->execute(2, 'Olson', 'Chuck')
or die "Couldn't execute statement: " . $statement->errstr;

$statement->execute(3, 'Lee', 'Bill')
or die "Couldn't execute statement: " . $statement->errstr;

$statement->execute(4, 'Chapman', 'Lisa')
or die "Couldn't execute statement: " . $statement->errstr;

$statement->execute(1, 'Miller', 'Susan')
or die "Couldn't execute statement: " . $statement->errstr;

$statement->finish;
$connection->disconnect;

use strict;
use DBI;

# open connection handle
my $connection = DBI->connect('dbi:ODBC:Payroll', '', '')
or die " Connect failed: " . DBI->errstr;

# drop employee table
$connection->do('drop table employee');

# create employee table
$connection->do('CREATE SET TABLE employee (
employee_number INTEGER NOT NULL PRIMARY KEY,
last_name VARCHAR(50) NOT NULL,
first_name VARCHAR(50) NOT NULL)')
or die "Execute failed: " . DBI->errstr;

# populate employee table with sample data
my $statement =  $connection->prepare("INSERT INTO employee (employee_number, last_name, first_name) VALUES (?,?,?)")
or die "Prepare failed: " . $connection->errstr;

$statement->execute(2, 'Olson', 'Chuck')
or die "Execute failed: " . $statement->errstr;

$statement->execute(3, 'Lee', 'Bill')
or die "Execute failed: " . $statement->errstr;

$statement->execute(4, 'Chapman', 'Lisa')
or die "Execute failed: " . $statement->errstr;

$statement->execute(1, 'Miller', 'Susan')
or die "Execute failed: " . $statement->errstr;

# clean up
$statement->finish;
$connection->disconnect;

2.4Retrieve Data

my $statement = $connection->prepare('select first_name, last_name from employee')
or die " Prepare failed: " . $connection->errstr;

$statement->execute()
or die "Execute failed: " . $statement->errstr;

my @row;
while (@row = $statement->fetchrow_array()) {
print "$row[0] $row[1]\n";
}

$statement->finish;
$connection->disconnect;

use strict;
use DBI;

#open connection handle
my $connection = DBI->connect('dbi:ODBC:Payroll', '', '')
or die "Couldn't connect to database: " . DBI->errstr;

# Print driver name and version.
my $driver_name  = $connection->get_info( 6 );
print "SQL_DRIVER_NAME=$driver_name\n";
my $driver_ver  = $connection->get_info( 7 );
print "SQL_DRIVER_VER=$driver_ver\n";

#prepare select statement
my $statement = $connection->prepare('select first_name, last_name from employee')
or die "Prepare failed: " . $connection->errstr;

#execute the statement
$statement->execute()
or die "Execute failed: " . $statement->errstr;

#retrieve and print every row
my @row;
while (@row = $statement->fetchrow_array()) {
print "$row[0] $row[1]\n";
}

#clean up
$statement->finish;
$connection->disconnect;