Assuming this is Oracle, run this code and post the results so we can see the versions of perl you have. Are your INSERTING data into a LONG datatype ?
#!/usr/bin/perl
use strict;
use DBI;
use DBD::Oracle;
print "perl $^O $^V
DBI $DBI::VERSION
DBD::Oracle $DBD::Oracle::VERSION\n";
my $dbh = dbh();
my $ar = $dbh->selectall_arrayref('SELECT * FROM V$VERSION');
print "@$_\n" for @$ar;
sub dbh {
my $dsn = "dbi:Oracle:host=yourHOSTNAME;sid=yourSID;port=1521";
my $user = 'user';
my $password = 'password';
my $dbh = DBI->connect($dsn,$user,$password, {
PrintError => 1,
RaiseError => 1,
AutoCommit => 1,
}) or die "Canot create Databse Handle: $DBI::errstr()";
return $dbh;
}
poj