サブルーチンへ渡した配列のリファレンスをデリファレンスするのが面倒なのですが。。

質問

MAIN: {
　 my @array = (1 .. 5);
　 print three(\@array);
　 exit;
}

sub three {
　 my $array = shift;
　 return $$array[2];
}

のように、サブルーチンに配列リファレンスを渡したあと、$$array[2]のようにデリファレンスするのが面倒なのですが、
このとき$array[2]と書ける何か良い方法はないでしょうか？
# 大きな配列を取り扱うので、リファレンスを使いたいんです。。
型グロブを使うことも考えたのですが、サブルーチン内でmyで宣言出来なくて、スコープ的にまずくなりそうなので断念しました；

どなたかアドバイスしていただけると嬉しいです。。

回答No.1

Tacosan · ベストアンサー

素直に $$array[2] とするのがベストだと思う.
理論上は「配列リファレンスを配列として扱う」ためのモジュールを作って tie すれば可能だと思うけど....

お礼

ありがとうございます。
取りあえずは、素直にデリファレンスしようと思います～。
tieについては勉強してきます；

回答No.3

bgbg

ちょっと別の切り口で。
アロー演算子を使うほうが見た目にもスッキルすると思います。

return $array->[2];

ちなみにハッシュでもアロー演算子が使えます。

$foo = \%bar;
return $foo->{'hoge'};

お礼

ありがとうございます。
アロー演算子使わせていただきます_ _

回答No.2

buffalomasa

サブルーチンの最初でデリファレンスして新しい配列を定義すればどうでしょう。自分はよく使いますが。

sub three {
　 my $array = shift;
　 my @data = @{$array};
　 return $data[2];
}

お礼

ありがとうございます。
大きな配列を使うので出来るだけコピーはしたくなくて；