初始化每个元素的列表是一个关联数组，关联数组的最后一个 elment 是 Perl 中的两个 D 数组

Question

我正在尝试创建一个数据库。列表中的每个元素都包含关联数组形式的详细信息，每个关联数组的最后一个元素都是二维数组，我需要帮助初始化它。

Answer 1

你需要说更多关于你想做什么，但这可能会有所帮助：它以你描述的方式初始化一个Perl数据结构。请注意，哈希中不能有"最后一个"元素（比"关联数组"更好的名称），因为哈希是无序的。我使用数据的customers字段来保存您谈到的 2D 数组。

use strict;
use warnings;
my @list = (
  {
    id => 1,
    name => 'cattle',
    customers => [
      [ 'World Bank', 'Space Marines', 'Undersea Exploration' ],
      [ 1, 2, 3 ],
      [ 0.0500, 0.6322, 0.9930 ],
    ],
  },
  {
    id => 2,
    name => 'arable',
    customers => [
      [ 'Jack Spratt', 'Molly Malone', 'The Whistler' ],
      [ 4, 5, 6 ],
      [ 0.0022, 0.1130, 0.6930 ],
    ],
  },
  {
    id => 3,
    name => 'seafood',
    customers => [
      [ 'Tai Chi School of Fishery', 'Latin Intermediary College', 'Ping Pong Gymnastics' ],
      [ 7, 8, 9 ],
      [ 0.0012, 0.8540, 0.9817 ],
    ],      
  },
);