DBD::mysqlPP is giving out of memory exception and ODBC is working fine.

Question

$dbh = DBI->connect("dbi:mysqlPP:$dsn;host=$host", $user, $pw,
{PrintError => 1, RaiseError => 1});
if (!$dbh) {
    print "error: connection: $DBI::errn$DBI::errstrn$DBI::staten";
 }
$drh = DBI->install_driver("mysqlPP");
$ary_ref = $dbh->selectcol_arrayref("SELECT pui,spuid FROM inven WHERE dispatchdate="0000-00-00" and dupli is NULL LIMIT 0, 5000", { Columns=>[1,2] });
 %masterdb = @$ary_ref; # build hash from key-value pairs so $hash{$id} => name
$sth = $dbh->prepare("SELECT DISTINCT spuid FROM inven WHERE dispatchdate"0000-00-00" and dupli is NULL LIMIT 0, 1000");
 $sth->execute();
while ( @row = $sth->fetchrow_array ) {
    push(@dspu, "@row.dat");
}

The above code which uses mysqlPP module is giving our of memory exception and not getting executed. Where as if it uses ODBC connection it is working without any exception. First query will fetch 3000 records and 2nd query fetches 500 records. it may increase in later stages.

 $dbh = DBI->connect("dbi:ODBC:$dsn", $user, $pw,
{PrintError => 1, RaiseError => 1});
if (!$dbh) {
    print "error: connection: $DBI::errn$DBI::errstrn$DBI::staten";
}

Is there any bug in mysqlPP? or am i missing something obvious.

Answer 1

This code is really bad:

1. It lacks "use strict;" and "use warnings;".
2. It doesn't throw an exception when "$dbh" is undef.
3. It is not properly indented.
4. It lacks empty lines between code paragraphs.

Please fix all those. See the link
http://perl-begin.org/tutorials/bad-elements/ on The Perl Beginners Site, which is a site I maintain.

Why are you using mysqlPP instead of https://metacpan.org/release/DBD-mysql ?
There may be a bug in mysqlPP also.