Perl如何使用DBIx:：Class返回数据

Question

我是DBIx:：Class的新手。我用它作为API从我的数据库中重新运行数据，我想用DBIC重新创建一个SELECT*from表。对于DBI，它对我很有效
返回数据“漂亮”的最佳方法是什么
我想以哈希数组的形式返回数据，如：

[
  {
    id => 123,
    name => 'name',
    ....
  }
]

但是使用my@rs=$schema-

$VAR1 = bless( {
              '_column_data' => {
                                  'name' => 'test',
                                  'id' => 123'
                                },
              '_result_source' => $VAR1->{'_result_source'},
              '_in_storage' => 1
            }, 'DB::Schema::Result::Product' );

我肯定我误解了DBIC的概念。
我怎么能只得到所有科伦的数据？谢谢大家的帮助！




Answer 1

my @rs = map {$_->_column_data} $schema->resultset('Product')->all

? 这就是说，按照惯例，带前导下划线的字段是“私有”字段，很可能没有文档记录或文档不足，或者在未来的实现中可能会在不通知的情况下更改，您应该警惕直接访问它们。

由于DBIx:：Class的目的是将数据库行转换为对象，因此应该将结果集视为对象数组。要将其向下转换为适合与Data:：Dumper一起使用的哈希，可以执行以下操作：

my @rs = map { { name => $_->name, id => $_->id } } $schema->resultset('Product')->all

Answer 2

我认为最简单的方法就是get_inflated_columns方法。

map {{$_->get_inflated_columns}} $rs->all

考虑使用数据：：转储，如果你真的想要漂亮的东西，数据：：打印机。

Answer 3

数据：转储程序只是泄漏了数据结构的内部。这就是DB:：Schema:：Result:：Product对象的核心，它代表产品表的一行。

如果你想从一个对象获得漂亮的输出，你需要向该对象索取。可以对它们调用DBIx:：Class:：Row方法。如果只需要对象中的行数据，请使用get_columns或get_columns。它们返回一个散列，所以你需要引用。

my @rows = map { my %h = $_->get_columns; \%h } @rs;