closing dbh with active statement handles

[luke devon]

Hi Friends, 

Here, I am trying to connect sqlite DB and access some data for matching values 
with STDIN.But when i try to debug the code it gives following message. I went 
through google , and couldn't find any solution yet. Can some body help me 
pelase.

 
closing dbh with active statement handles at xxx.pl line 48, <STDIN> line 1.

This is my perl code, 

#!/usr/bin/perl
use DBI;
use strict;
use warnings;
#
## no buffered output, auto flush
$|=1;

my ($dbh,$sth,$dbargs,$VALUEB,$query);

$dbargs = {AutoCommit => 0, PrintError => 1};
$dbh = DBI->connect("dbi:SQLite:dbname=List","","",$dbargs);

if ($dbh->err()) {
   print;
   exit;
}

while (<STDIN>) {
   chomp;
   my ($url, $url2, $ip) = split(/ /);
   $query = "SELECT * from Groups where XvalueAddress = '". $ip ."'";
   $sth = $dbh->prepare($query);
   $sth->execute();

   if (my $ref = $sth->fetchrow_hashref()) {
       $VALUEB = $ref->{'CallId'};
       #if (!defined $VALUEB) {
       #   $VALUEB = "NA";
       #}
   }else{
      $VALUEB = "NA";
   }

   if (!($url =~ m#valueB#)) {
       if ($url =~ m#\?#) {
          $url .= ("&valueB=" . $VALUEB);
       } else {
          $url .= ("?valueB=" . $VALUEB);
       }
       print $url."\n";
   } else {
       print "\n";
   }
}
   $sth->finish();
   $dbh->commit();
   $dbh->disconnect();

Many Thanks
Luke.


Send instant messages to your online friends http://uk.messenger.yahoo.com