Koşulsal olarak Perl'de 2 diziden 1'e kadar itme

Question

Bunu yapmanın daha iyi bir yolu var mı? ile ve Pars olmadan

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

ama imkânsız:

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

kullanıyorum çalıştı: Ben bir sayısal değerine dayanarak 2 diziler oluşturmaya çalışıyorum.

Hata geçerli:

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

Answer 1

itme, gerçek bir dizi (en azından daha önce perl 5.14 ve önceki - bu değişmiş olabilir) olmak ilk parametre gerektirir Gerekirse bu nedenle, değil bir ifade:

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

5.14 başlayarak

böyle itme experimentally can take arbitrary hard references olarak builtins, bu nedenle bu işleri:

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

Answer 2

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

push gerçekten ilk argümanı olarak bir dizi almak istiyor, ancak yine de referansları kullanarak hedefi dinamik olarak seçebilirsiniz.

Answer 3

Tercih ettiğim çözüm

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

Sadece bir stil şey olurdu. İçe itmek için ilk argüman olarak üçlü bir ifadeyi kullanmak bana dağınık görünüyor ve ekstra çizgileri umursamıyorum. Kişisel tadı sanırım!