perl – DBIx :: Class has_many连接列的子字符串

发布时间：2020-12-16 06:15:14 所属栏目：大数据来源：网络整理

导读：我有两个相关的课程 foreign.weirdkey = substr(self.key,1,9) …并且不能为我的生活弄清楚如何构造has_many调用来表明这一点. 底层数据库(一组Oracle表)定义没有外键,是固定的,并且不受我的控制. 我已经浏览过这些文档,似乎无法找到一个可以在手册has_many

我有两个相关的课程

foreign.weirdkey => substr(self.key,1,9)

…并且不能为我的生活弄清楚如何构造has_many调用来表明这一点.

底层数据库(一组Oracle表)定义没有外键,是固定的,并且不受我的控制.

我已经浏览过这些文档,似乎无法找到一个可以在手册has_many定义范围内工作的语法.

任何帮助将非常感激.

解决方法

这样的事情应该有效：

__PACKAGE__->has_many( baubles => 'My::Schema::Result::Thing',sub {
   my $args = shift;

   return ({
      "$args->{foreign_alias}.weirdkey" => "substr($args->{self_alias}.key,9)",},$args->{self_rowobj} && {
      "$args->{foreign_alias}.weirdkey" => substr($args->{self_rowobj}->key,9)
   })
});

请注意,如果您拥有当前行对象,则使用perl的substr,因此连接将仅折叠为where子句,并且不会将数据库用于字符串munging.如果您遇到问题,请将其移除或摆弄它. DBIC_TRACE应该清楚说明发生了什么.

文档：https://metacpan.org/pod/DBIx::Class::Relationship::Base#condition

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!