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;
}
####
DBD::ODBC::st fetchall_arrayref warning: no select statement currently executing
at conn.pl line 17.
##
##
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
$VAR1 = [];
##
##
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 ....