Perl解引用数组以获取特定值

Question

So, in Perl, I have an array within an object (so, a reference to an array), and I want to find the first value of that array.

I find myself using code like the following quite often:

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

That works, but I'm sure I could do this without all the intermediate lines and variables.

Can someone help me with the syntax?

Answer 1

尝试：

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

Answer 2

尝试$ server_ref-> [0]，它应该可以工作。