perl - 是否有用于使用 SQL 语言访问复杂结构数据的 Perl 模块？

Question

我经常将很多数据保存到一个hash var中，或者根据条件获取数据。这不方便，所以我想要一个模块，使用 SQL 作为 NoSQL 访问数据。我找到了DBD::RAM ，但是有更小的模块吗？

例如:像 MySQL 表这样的哈希数据:

{
   "table": "company",
   "rows" : [
       {
         "name": "baidu",
         "location": "China"
       },
       {
         "name": "taobao",
         "location": "China"
       }
    ]
}

一般来说，插入这样的记录:

my %new_row = (name=>xxx, location=>yyy);
push (@{$hash->{rows}}, \%new_row);

如果我这样做，会有很多散列变量，所以我想更像这样:

$handle->insert('insert into company values("xxx", "yyy")');

my ($name, $location) = $handle->select_unqiue_record(<<"_EOC_";
    select name, location from company where name="baidu"
_EOC_);

Answer 1

我推荐https://metacpan.org/module/DBIx::DataModel .

一旦您设置了描述目标表的模式 - 您可以通过逆向工程自动执行此操作 - 您可以像这样直接插入哈希:

my $table = $schema->table($table_name);
my $id = $table->insert($hash_ref);

实际上，您可以将 DBIx::DataModel 传递给 hash_refs 数组(根据您的问题)，它会为您插入其中的每一个。参见文档: https://metacpan.org/module/DBIx::DataModel#Insert