Re^4: multi threading DBI

[Anonymous Monk]

Thanks for offering, I have cut out the main part here:

my $dbh = DBI->connect("dbi:SQLite:dbname=event.db3", "", "", { RaiseE
+rror => 1, AutoCommit => 0 }, ) or die $DBI::errstr;
my @arr_uname = @{$dbh->selectcol_arrayref("select uname from event")}
+;
$dbh->disconnect();

foreach $uname(@arr_uname) {

   ###
   ###   all the LWP::Simple and the parsing happens here
   ###
   ###  [deleted]

   ### output result
   if ($result ne '') {
      $dbh->do("INSERT OR IGNORE INTO detail_info (id,uname,url,thumb,
+txt) VALUES (?,?,?,?,?)", undef, $$result{'id'},$uname,$$result{'url'
+},$$result{'thumb'},$$result{'txt'});
      $dbh->do("INSERT OR IGNORE INTO score_info (id,uname,tid1,tid2,t
+eam1,team2,) VALUES (?,?,?,?,?,?)", undef, $$result{'id'},$uname,$$re
+sult{'tid1'},$$result{'tid2'},$$result{'team1'},$$result{'team2'});
      $dbh->commit; 
   }
}