Perl解除引用特定值的数组

时间:2011-08-09 14:43:59

标签: perl reference

所以,在Perl中,我在一个对象中有一个数组(所以,对一个数组的引用),我想找到该数组的第一个值。

我发现自己经常使用以下代码:

my $server_ref = $self->{source_env}->{server};
my @servers = @$server_ref;
my $main_server = $servers[0];

这有效,但我确信如果没有所有中间线和变量,我可以做到这一点。

有人可以帮我解释语法吗?

2 个答案:

答案 0 :(得分:6)

尝试:

my $main_server = $self->{source_env}->{server}->[0];

答案 1 :(得分:0)

尝试$ server_ref-> [0],它应该有效。