perl - 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;"

score 13 · Accepted Answer

push では、最初のパラメータが式ではなく実際の配列 (少なくとも perl 5.14 以前では変更されている可能性があります) である必要があるため、次のようにする必要があります。

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

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

score 9 · Accepted Answer

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

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

score 1 · Accepted Answer

私の好ましい解決策は

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

ただのスタイルです。push の最初の引数として三項式を使用するのは面倒に見えますが、余分な行は気にしません。個人的な好みだと思います！

3 に答える 3