Perl DBIx::Class DateTime 减法

Question

这段代码有什么问题？我正在使用 perl 的 DateTime 模块和 DBIx::Class。

my $entry_rs = $schema->resultset('table_name')->search_rs(             
    {                                                                       
        table_id      => $row->table_id,                                    
        utc_timestamp => { '<', \'DateTime->now()->subtract(days => 180)' },
    },                                                                      
)->all;                                                                     

我使用的是 PostgreSQL，utc_timestamp 类型是时间戳。如果我计算 DateTime->now()->subtract(days => 180) 并将其存储在变量中并替换该值，那么它就可以工作。

错误：

DBIx::Class::Storage::DBI::_dbh_execute()：DBI 异常：DBD::Pg::st 执行失败：错误：“日期时间”列不存在？？

请帮忙

Answer 1

您将 Perl 代码作为文字 SQL 传递给数据库。这是行不通的。试试这样的：

my $dt       = DateTime->now()->subtract(days => 180);
my $parser   = $schema->storage->datetime_parser;
my $entry_rs = $schema->resultset('table_name')->search_rs(             
    {                                                                       
        table_id      => $row->table_id,                                    
        utc_timestamp => { '<', $parser->format_datetime($dt) },
    },                                                                      
)->all;

此代码使用datetime_parser in DBIx::Class::Storage::DBI 检索适合您的数据库的DateTime::Format 类。然后它在该类上调用format_datetime 将DateTime 对象转换为可以传递给数据库的字符串。