特定の値のPerl逆参照配列

Question

したがって、Perlではオブジェクト内に配列があります（配列への参照）ので、その配列の最初の値を探したいと思います。私は自分自身がかなり頻繁に次のようなコードを使用して見つける

：

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

動作しますが、私は、私はすべての中間ラインと変数せずにこれを行うことができます確信しています。

誰かが構文を助けることができますか？

Answer 1

試してみてください。

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

Answer 2

は$ server_refを試してみてください - > [0]、それが動作するはずです。