perl中多维数组的哈希填充

Question

给定三个标量，填充散列的 Perl 语法是什么，其中一个标量是键，另一个标量确定填充两个数组中的哪一个，第三个标量附加到其中一个数组？例如：

my $weekday = "Monday";
my $kind    = "Good";
my $event   = "Birthday";

并且只给出在循环内获得的标量而不是它们的特定值，我想要一个像这样的散列：

my %Weekdays = {
      'Monday' => [
                    ["Birthday", "Holiday"],     # The Good array
                    ["Exam", "Workday"]          # The Bad array
                  ]
      'Saturday' => [
                    ["RoadTrip", "Concert", "Movie"],
                    ["Yardwork", "VisitMIL"]
                  ]
}

我知道如何将值附加到散列中的数组，例如如果键是单个数组：

push( @{ $Weekdays{$weekday} }, $event);

使用在循环中，这可能会给我：

%Weekdays = {
        'Monday' => [
                    'Birthday',
                    'Holiday',
                    'Exam',
                    'Workday'
                    ]
}

我认为哈希键是特定的工作日，并且该值应该是二维数组。我不知道 perl 语法，例如，将生日作为工作日数组的元素 [0][0] 推入散列，并在下一次循环中将另一个事件推入为 [0][1] 或[1][0]。同样，我不知道访问相同的语法。

Answer 1

使用您的变量，我会这样写：

push @{ $Weekdays{ $weekday }[ $kind eq 'Good' ? 0 : 1 ] }, $event;

但是，我可能也会制作好/坏说明符键。并考虑到我的建议：

use autobox::Core; 
( $Weekdays{ $weekday }{ $kind } ||= [] )->push( $event );

请注意，我在这里编写的方式，在我们开始之前，两个表达式都不关心数组是否存在。

Answer 2

有什么原因

 push @{ $Weekdays{Monday}[0] }, "whatever";

对你不起作用吗？