Điều kiện đẩy tới 1 trong 2 mảng trong Perl

Question

Có cách nào tốt hơn để thực hiện việc này không? Tôi đang cố gắng để xây dựng 2 mảng dựa trên giá trị của một đại lượng vô hướng:

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

tôi đã cố gắng sử dụng:

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

có và không có dấu ngoặc, nhưng không có đường đi.

Lỗi là:

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

Answer 1

đẩy đòi hỏi tham số đầu tiên của nó là một mảng thực tế (ít nhất là trước khi perl 5.14 và trước đó - nó có thể đã thay đổi), không phải là một biểu hiện, vì vậy bạn cần phải:

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

Bắt đầu từ 5.14, builtins như push experimentally can take arbitrary hard references, vì vậy công trình này:

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

Answer 2

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

push thực sự muốn lấy mảng làm đối số đầu tiên, nhưng bạn vẫn có thể chọn mục tiêu động bằng cách sử dụng tham chiếu.

Answer 3

giải pháp ưa thích của tôi sẽ là

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

Chỉ cần một điều phong cách. Sử dụng một biểu thức bậc ba như là đối số đầu tiên để đẩy trông lộn xộn với tôi, và tôi không nhớ những dòng phụ. Cá nhân tôi đoán!