http://www.perlmonks.org?node_id=926546


in reply to Can't query SQLite in a while loop

There are a couple issues with this code that are unrelated to your specific problem, but important to resolve:

my $db_attr = {RaiseError => 1, PrintError => 1}; my $db_error = $DBI::errstr; $dbh = DBI->connect("dbi:SQLite:$name_db","","",$db_attr); if (defined($db_error) && $db_error ne " ") {

First, it looks like you're not checking for connect errors properly. What would you expect to see in $db_error after connect? Second, you're using RaiseError, and checking $DBI::errstr. That is why it's clear these issues are unrelated to your specific problem. You'd be getting an exceptions anyway. You should pick one error or exception mechanism and go with it, not both.

--Dave

Replies are listed 'Best First'.
Re^2: Can't query SQLite in a while loop
by josef (Acolyte) on Sep 18, 2011 at 12:19 UTC
    Hallo armstd, you are right. I will change to PrintError => 0, RaiseError => 0. I found more example about on the Perl DBI book from Q`Reilly http://oreilly.com/catalog/perldbi/chapter/ch04.html. Many thanks for your comment.