#!/usr/local/bin/perl -w

use strict;
use DBI;
use Tie::DBI;
use Carp qw{cluck};
use Data::Dumper;

my $crdmdbname = 'dbi:Oracle:production.world';
my $crdmuser = 'ZEEKRIT';
my $crdmpassword = 'UBERZEEKRIT';


my $crdmdbh = DBI->connect ($crdmdbname, $crdmuser, $crdmpassword);

tie my %crdmRec,'Tie::DBI',
{
    db       => $crdmdbh,
    table    => 'CRDM.CONSUMER_ACCT_HIST_200608',
    key      => 'UNIV_ACCT_ID',
    CLOBBER  => 0,
    AUTOCOMMIT => 0
};

# this Dumper generates one complaint per column (292)
# plus one for the key
print Dumper($crdmRec{25788305001});

$crdmdbh->disconnect();

##</code><code>##

Tie::DBI::_quote(/usr/lib/perl5/site_perl/5.8.3/Tie/DBI.pm:523):
523:      if ($s->{'driver'} eq 'Oracle' && $types->{$field} eq 'DATE') {
  DB<5> p $field
UNIV_ACCT_ID
  DB<6> use Data::Dumper

  DB<7> p Dumper($types)
$VAR1 = {};

  DB<8> s
Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.8.3/Tie/DBI.pm line 523.
        Tie::DBI::_quote('Tie::DBI=HASH(0xa119c94)','UNIV_ACCT_ID',25788305001)
called at /usr/lib/perl5/site_perl/5.8.3/Tie/DBI.pm line 431
        Tie::DBI::_fetch_field('Tie::DBI=HASH(0xa119c94)',25788305001,'ARRAY(0x9
ee90c8)') called at /usr/lib/perl5/site_perl/5.8.3/Tie/DBI.pm line 585
        Tie::DBI::Record::FETCH('Tie::DBI::Record=HASH(0xa0bbda8)','security_scr
een') called at /usr/lib/perl5/5.8.3/i386-linux-thread-multi/Data/Dumper.pm line 158
        Data::Dumper::Dump('Data::Dumper','ARRAY(0xa0bbb50)') called at /usr/lib/perl5/5.8.3/i386-linux-thread-multi/Data/Dumper.pm line 483
        Data::Dumper::Dumper('HASH(0xa094574)') called at test.pl line 33


##</code><code>##

Linux cmtsas 2.4.22-1.2199.nptl #1 Wed Aug 4 12:21:48 EDT 2004 i686 i686 i386 GNU/Linux
This is perl, v5.8.3 built for i386-linux-thread-multi
Tie-DBI-1.02
DBD-Oracle-1.18
Connected to:
Oracle Database 10g Enterprise Edition Release 10.2.0.2.0 - 64bit Production
With the Partitioning and Data Mining options