条件付きでPerlで2つの配列の1つに移動する

Question

もっと良い方法がありますか？私はスカラーの値に基づいて、2つのアレイを構築しようとしている：

my (@x, @y); 
my $r = [$v1, $v2, $v3]; 
push @x, $r if $s eq 'YES'; 
push @y, $r if $s ne 'YES'; 

私が使用してみましません：

push $s eq 'YES' ? @x : @y, $r; 

括弧でとせずに、ない行きます。

エラーは次のとおりです。

Type of arg 1 to push must be array (not null operation) at comp_report.pl line 79, near "$r;" 

Answer 1

プッシュは、実際の配列（少なくとも前のperl 5.14およびそれ以前 - それが変更された可能性がある）であることを最初のパラメータが必要で、ない表現なので、以下を行う必要があります。

push @{ $s eq 'YES' ? \@x : \@y}, $r; 

5.14に始まり

、などプッシュexperimentally can take arbitrary hard referencesとしてビルトインので、これは動作します：

push $s eq 'YES' ? \@x : \@y, $r; 

Answer 2

push @{ $s eq 'YES' ? \@x : \@y }, $r; 

pushは、最初の引数として配列を取得したいと考えていますが、参照を使用してターゲットを動的に選択することはできます。

Answer 3

私の好適な解決策は

if($s eq 'YES'){ 
    push @x, $r; 
else{ 
    push @y, $r; 
} 

スタイルだけの事だろう。プッシュする最初の引数として三項式を使用すると、私にとっては面倒なように見え、余分な行は気にしません。私は個人的な味だと思います！