Perlサブルーチンによって返された要素に選択的にアクセスするにはどうすればよいですか？

Question

は、Perlサブルーチンが配列を返すと言う：私は、このことから、特定の配列要素にアクセスする最初のを言う

sub arrayoutput 
{ 
    ...some code... 
    return @somearray; 
} 

。だから私はできます：

@temparray=arrayoutput(argument); 

そして次に$temparray[0]を参照してください。

しかし、この種の短い参照は機能しません：$arrayoutput(some argument)[0]。

私はPythonに慣れていてPerlには慣れているので、この値を得るには、短く直感的なpython風の方法（a=arrayoutput(some argument)[0]）を探しています。私のPerlプログラムは非常に長くなり、そのような一時的な配列を使用すると醜いようです。 Perlにこれを行う方法はありますか？

Answer 1

Slices

use warnings; 
use strict; 

sub foo { 
    return 'a' .. 'z' 
} 

my $y = (foo())[3]; 
print "$y\n"; 

__END__ 

d 

UPDATE：別のコード例あなたのコメントに対処します。あなたは中間変数を必要としません：

use warnings; 
use strict; 

sub foo { 
    return 'a' .. 'z' 
} 

print((foo())[7], "\n"); 

if ((foo())[7] eq 'h') { 
    print "I got an h\n"; 
} 

__END__ 

h 
I got an h 

Answer 2

片道は[(arrayoutput(some argument))]->[0]である可能性があります。

Answer 3

はリストコンテキストを介して、第1引数をやってのける：スライスと

my ($wanted) = array_returning_sub(@args); 

TIMTOWTDI：

my $wanted = (array_returning_sub(@args))[0]; 

---

を両方のスタイルができリストのスライスが目の上で少し楽になりますが、返される配列のn番目の要素を抽出するように拡張してください：

my (undef, undef, $wanted, undef, $needed) = array_returning_sub(@args); 

my ($wanted, $needed) = (array_returning_sub(@args))[2,4];