Perl匿名リストの質問

Question

なぜこれは機能しませんか？

my @str = split... 

が、私はそれをスキップする方法はあります覚えている：

my $str = 'we,you,them,us'; 

print $(split($str,','))[0]; 

私は私が行うことができます知っています。

ありがとう、

Answer 1

スプリットリバースの引数の順序があります。括弧の前にドル記号はないはずです。以下の作品（プラス記号力が式として次のことを評価するためのperl）：

use strict; 
use warnings; 

my $str = 'we,you,them,us'; 

print +(split(',',$str))[0]; 

Answer 2

[split $str, ',']->[0];を使用するには、罰金になります。

Answer 3

関数の戻り値のほんの一部にしかアクセスする必要がない場合は、使用できるスコープの小さい関数があるかどうかを確認する必要があります。この場合、私は正規表現を使用するかもしれません：

print $str =~ /^([^,]*)/;