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 Exception: DBD::Pg::st execute failed: ERROR: column "datetime" does not exist ??

请帮忙

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 对象转换为可以传递给数据库的字符串。