这是一个难以解释的问题(而且非常奇怪),所以请耐心等待。我将解释问题及其解决方法,但我想看看是否有人可以解释为什么它会以这种方式工作:)
我有一个使用 mod_perl 的 Web 应用程序。它使用 MySQL 数据库,我定期将数据写入数据库。它是模块化的,因此它也有自己的“数据库”类型的模块,我在其中处理连接、更新等。database::db_connect() 子例程用于连接数据库,并AutoCommit
设置为 0。
我制作了另一个 Perl 应用程序(独立守护程序),它定期从数据库中获取数据,并根据返回的数据执行各种任务。我在其中包含了 database.pm 模块,因此我不必重写/复制所有内容。
我遇到的问题是:
应用程序在启动时连接到数据库,然后永远循环,每隔 X 秒从数据库中获取数据。但是,如果数据库中的数据被更新,我的应用程序仍然会返回“旧”数据,这是我在与数据库的初始连接/查询时获得的。
例如 - 我有 3 行,并且列“名称”具有值 'a'、'b' 和 'c' - 对于每条记录。如果我更新其中一行(例如,从命令行使用 mysql 客户端)并将名称从 'c' 更改为 'x',我的独立守护程序将无法获取该数据 - 它仍然会从返回的 a/b/c mysql。我用 tcpdump 捕获了数据库流量,我可以肯定地看到 MySQL 确实在返回该数据。我也尝试过将 SQL_NO_CACHE 与 SELECT 一起使用(因为我不确定发生了什么),但这也无济于事。
然后,我修改了独立守护程序中的数据库连接字符串,并将其设置AutoCommit
为 1。突然,应用程序开始获取正确的数据。
我很困惑,因为我认为 AutoCommit 只影响 INSERT/UPDATE 类型的语句,而对 SELECT 语句没有影响。但它似乎确实如此,我不明白为什么。
有谁知道为什么 SELECT 语句在AutoCommit
设置为 0 时不会从数据库返回“更新的”行,以及为什么在AutoCommit
设置为 1 时它会返回更新的行?
这是我在独立守护程序中使用的简化(取出错误检查等)代码,它不返回更新的行。
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use Data::Dumper;
$|=1;
my $dsn = "dbi:mysql:database=mp;mysql_read_default_file=/etc/mysql/database.cnf";
my $dbh = DBI->connect($dsn, undef, undef, {RaiseError => 0, AutoCommit => 0});
$dbh->{mysql_enable_utf8} = 1;
while(1)
{
my $sql = "SELECT * FROM queue";
my $stb = $dbh->prepare($sql);
my $ret_hashref = $dbh->selectall_hashref($sql, "ID");
print Dumper($ret_hashref);
sleep(30);
}
exit;
更改AutoCommit
为 1 可以解决此问题。为什么?
谢谢 :)
PS:不确定是否有人在乎,但 DBI 版本是 1.613,DBD::mysql 是 4.017,perl 是 5.10.1(在 Ubuntu 10.04 上)。