http://qs321.pair.com?node_id=1224818

astroboy has asked for the wisdom of the Perl Monks concerning the following question:

I'm trying to query data from a Hive table on a MapR platform. My query is:

use Modern::Perl; use DBI; use Data::Dumper; my $dbh = DBI->connect('dbi:ODBC:DSN=myDSN', undef, undef, {RaiseError + => 1}); $dbh->{LongReadLen} = 1000000; $dbh->{LongTruncOk} = 1; my $sth = $dbh->prepare(q{select * from table}); $sth->execute; while (my $row = $sth->fetchall_arrayref) { say Dumper $row; }

What I get is the following line repeated hundreds of times to STDERR

DBD::ODBC::st fetchall_arrayref warning: no select statement currently + executing at conn.pl line 17.
Then I get the one row in the table, followed by a never-ending stream of the following to STDOUT
$VAR1 = []; $VAR1 = []; $VAR1 = []; $VAR1 = []; $VAR1 = []; $VAR1 = []; $VAR1 = []; $VAR1 = []; $VAR1 = []; $VAR1 = []; $VAR1 = []; $VAR1 = []; $VAR1 = []; $VAR1 = []; $VAR1 = []; $VAR1 = []; $VAR1 = []; $VAR1 = []; $VAR1 = [];
And the following to STDERR
DBD::ODBC::st fetchall_arrayref warning: no select statement currently + executing at conn.pl line 17. DBD::ODBC::st fetchall_arrayref warning: no select statement currently + executing at conn.pl line 17. DBD::ODBC::st fetchall_arrayref warning: no select statement currently + executing at conn.pl line 17. DBD::ODBC::st fetchall_arrayref warning: no select statement currently + executing at conn.pl line 17. DBD::ODBC::st fetchall_arrayref warning: no select statement currently + executing at conn.pl line 17. DBD::ODBC::st fetchall_arrayref warning: no select statement currently + executing at conn.pl line 17. DBD::ODBC::st fetchall_arrayref warning: no select statement currently + executing at conn.pl line 17. DBD::ODBC::st fetchall_arrayref warning: no select statement currently + executing ... repeat forever ....
I have to Control-C to stop this. Any explanation and way forward is appreciated