Question

我对Perl有点新鲜，所以请光临我。我有一个包含大量数据的大型一维哈希，我需要以这样的方式构造，以便我可以在每次代码执行时将其轻松地分类为相同的格式。

原始哈希数据：

{
'datetime' => 'datetime value',
'param_name' => 'param name',
'param_value' => 'param value',
'category' => 'category name'
}

当前数据结构：

{
  'datetime value' => {
    'category' => {
        'param_name' = > 'param name',
        'param_value' => 'param value
    }
  }
}

我几乎可以在代码中构建这个结构，除了每个类别，可能有多个param_names和param_values具有相同的键名。

我遇到的问题是，如果有多个参数名称/值，则只有最后一对保存在新数据结构中。

我知道密钥必须是唯一的，所以我不太清楚如何解决这个问题。

构建结构后，我需要了解如何根据日期时间对数据进行排序，然后了解param_name，以便输出中的顺序始终相同。

非常感谢任何提示/建议/代码段！

Answer 1

看看你的第一个和第二个例子之间的区别，我认为你的结构有点偏。我认为这符合你想要的更多：

{
     DATE       => date_time_value,
     PARAMETERS =>  {
                       param_name1 => parameter_value1,
                       param_name2 => parameter_value2
                    }
}

这样，带数据的结构可能如下所示：

 {
      DATE_TIME  => "10/31/2031 12:00am",
      PARAMETERS => {
                       COLOR     => "red",
                       SIZE      => "Really big",
                       NAME      => "Herman",
                    }
 }

通常，您会想到包含值的字段的对象。想想一行SQL表或电子表格。您有包含标题的列和包含该值的行。

我们带一名员工。他们有姓名，年龄，工作和电话号码：

{
      NAME  => "Bob Smith",
      AGE   => "None of your business",
      JOB   => "Making your life miserable",
      PHONE => "555-1212"
}

与表不同，每个条目都可以包含其他结构。例如，人们通常拥有多个电话号码，我们可能希望将姓氏与名字分开存储：

{
     NAME  => {
                   FIRST => "Bob",
                   LAST  => "Smith"
              }
     AGE   => "None of your business",
     JOB   => "Making your life miserable"
     PHONE =>  {
                   CELL => "555.1234",
                   WORK => "555.1212"
               }
}

然后我们有同时拥有多部手机的人。例如，Bob有两部手机。在这种情况下，我们将为每个电话类型字段设置一个值数组：

{
     NAME  => {
                   FIRST => "Bob",
                   LAST  => "Smith",
              }
     AGE   => "None of your business",
     JOB   => "Making your life miserable"
     PHONE =>  {
                   CELL => ["555.1234", "555.4321"]
                   WORK => ["555.1212"]
               }
}

并初始化它：

my $person = {};
$person->{NAME}->{FIRST} = "Bob";
$person->{NAME}->{LAST}  = "Smith";
$person->{AGE} = "None of your business";
$person->{JOB} = "Making your life miserable";
$person->{PHONE}->{CELL}->[0] = "555.1234";
$person->{PHONE}->{CELL}->[1] = "555.4321";
$person->{PHONE}->{WORK}->[0] = ""555.1212";

Answer 2

我认为似乎合适的是params哈希，其中键是所有名称，值是实际值。看起来这就是你想要的。

my %hash = {
  'datetime value' => {
    'category' => {
        'params' => {
            'param-name1' => 'param-value1',
            'param-name2' => 'param-value2',
            'param-name3' => 'param-value3',
            etc..
      }
    }
  }
}

在重组之后，根据您的意愿进行排序应该很容易。

按键字母顺序排列：

my @alphabetic_keys = sort {  $hash{$a} cmp $hash{$b} } keys %{ $hash{params} };

按键长度：

my @by_length_keys = sort { length($a) <=> length($b) } keys %{ $hash{params} };

Answer 3

假设类别名称是唯一的，我建议使用以下数据结构：

{
  'datetime value 1' => {
    'category name 1' => {
        'param name 1' = > [param value1, param value2, ...],
        'param name 2' = > [param value3, param value4, ...],
        etc...
    },
    'category name 2' => {
        'param...' => [ value... ]
  },
  'datetime value 2' => {
    etc...
  }
}

使用Perl构建和访问复杂的数据结构

3 个答案: