Re: SELECT FOR UPDATE ok, but how to dereference

[Zachary Buckholz]

Ok I was able to get it, perldoc perlref showed me.

But this is very very SLOW.

Am I doing it in an inefficient way or is something out of place?

Thanks
zack


sub select_url() {

  my $select_query = "SELECT check.url_id AS url_id, check.url_timeout,
url.url_protocol, url.url, url.contact_ids, MD5.MD5
, check.mc_id, check.lc_status, check.lc_MD5_status
                      FROM monitor_check check
                      LEFT OUTER JOIN monitor_url url
                      ON check.url_id = url.url_id
                      LEFT OUTER JOIN monitor_MD5 MD5
                      ON check.url_id = MD5.url_id
                      WHERE ((active = 1)
                      AND ((chk_freq + UNIX_TIMESTAMP(lc_epoch)) <= ?))
                      OR (lc_status = 0)
                      FOR UPDATE";

  my $update_query_statement = "UPDATE monitor_check
                                SET lc_epoch = FROM_UNIXTIME(?)
                                WHERE url_id = ?";

  my @update_values;
  my ($update_query, $update);
  my $url_id;

  while (my $url_list = $dbh->selectall_arrayref($select_query, undef,
$current_time)
        or die "Can't execute statement: $DBI::errstr") {

        @update_values = ($current_time, $url_list->[0][0]);
$url_id = $url_list->[0][0];
print "$url_id $current_time\n";

        $update_query = $dbh->prepare($update_query_statement)
                or die "Unable to prepare update_query_statement:
$DBI::errstr";

        $update = $update_query->execute(@update_values)
                or die "Unable to execute update_query: $DBI::errstr";

  }


  return($url_list);

}