perl 如何推送到哈希中引用的匿名3元素数组

pgvzfuti  于 2022-11-15  发布在  Perl
关注(0)|答案(1)|浏览(174)

我试图“推”到一个匿名的3元素数组,其引用存储在哈希中:

my %messages;
my $to = "To";
... later ...
$messages{$msg_id}{$to} = [ [], [], [] ];

这基本上是可行的,因为Data::Dumper显示了一个空的3元素数组。我的问题是我无法解决如何将数据“推”到这个匿名数组中!
我已经尝试了很多事情,但意识到我只是在挣扎。下面是我许多失败的几个例子!
第一次

dy1byipe

dy1byipe1#

只需要将->[0]移到@{...}中。push的第一个参数必须是数组,而不是引用。请参阅:https://perldoc.perl.org/perlref

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %messages;
my $msg_id = 123;
my $to = "To";
$messages{$msg_id}{$to} = [ [], [], [] ];

my $word = "something";
push(@{ $messages{$msg_id}{$to}->[0] }, ( $word ));

print Dumper \%messages;

1;

相关问题