perl - 如何将哈希键和值对作为 Perl 中的字段值写入 MongoDB 文档？

Question

my %Hash= (2012=> 1, 1982=>12, 2010=>0);

有键和值需要都在同一个字段名称“时间”上，就像一个数组

$mycollection->insert(
                     {
                         'field1' => $var1;
                         'field2' => $var2;
                          #right here I need to know how to add above hash key and values
                          # like below  
                          #'time': ["2012.1","1982.12","2010.0"]   
                     }
                   );

任何建议或想法将不胜感激。这可能可以通过执行一系列更新语句来完成，但由于我的要求，我想用一个插入语句来完成。

Answer 1

我想你的 %Hash 变量是这样的：

my %Hash= (2012=> 1, 1982=>12, 2010=>0);

所以你的数组“时间”是这样构建的：

my @time = map { $_ . "." . $Hash{$_} } keys %Hash;

最后：

$mycollection->insert({
   'field1' => $var1,
   'field2' => $var2,
   'time' => \@time   
});