如何在Perl的DBIx::Class中使用JOIN获取关联数据？

问题原因 #

你使用join只是在SQL层面完成了表关联，但DBIx::Class（DBIC）默认只会将主表（Cd）的字段封装到结果对象中，关联表（track）的字段不会自动被包含到主对象里，因此直接调用get_column('track_title')会提示字段不存在。另外你看到的重复打印CD标题，是因为join后SQL返回的是每条track对应一行CD数据，DBIC会为每行生成一个独立的Cd对象，导致同一CD被重复实例化。

解决方案1：使用prefetch预加载关联数据（推荐，符合ORM设计） #

prefetch是DBIC的核心特性，它会将关联的tracks数据预加载到Cd对象中，让你可以通过对象方法直接访问关联的曲目，且每个CD只会被实例化一次。

修改后的测试脚本：

#! /usr/bin/env perl

use v5.20;
use lib '.';
use Model::Schema qw();
my $schema = Model::Schema->connect('dbi:SQLite:cds.sqlite');

my $cds = $schema->resultset('Cd')->search(
    {
        'cd_title' => { like => 'CD%'}
    },
    {
        prefetch => 'tracks',  # 替换join为prefetch，预加载关联的track数据
        order_by => ['tracks.id'],
    }
);

for my $cd ($cds->all()){
    say "CD标题: " . $cd->cd_title;
    say "--- 曲目列表 ---";
    # 遍历当前CD关联的所有track对象
    for my $track ($cd->tracks->all) {
        say $track->track_title;
    }
    say "";
}

解决方案2：用join配合select/as显式指定字段 #

如果需要获取扁平的关联数据（每条结果对应一个CD+Track组合），可以通过select指定要查询的字段，并用as定义别名，这样就能通过get_column获取关联表字段。

修改后的测试脚本：

#! /usr/bin/env perl

use v5.20;
use lib '.';
use Model::Schema qw();
my $schema = Model::Schema->connect('dbi:SQLite:cds.sqlite');

my $cds = $schema->resultset('Cd')->search(
    {
        'cd_title' => { like => 'CD%'}
    },
    {
        join => 'tracks',
        # 指定要查询的字段，me代表主表Cd
        select => ['me.cd_title', 'tracks.track_title'],
        # 给字段定义别名，方便get_column调用
        as => ['cd_title', 'track_title'],
        order_by => ['tracks.id'],
    }
);

for my $row ($cds->all()){
    say $row->get_column('cd_title');
    say $row->get_column('track_title');
    say "";
}

内容的提问来源于stack exchange，提问作者Peter