Tại sao Perl đè bẹp mảng của tôi?

Question

Dưới đây là một chương trình thử nghiệm ngắn:

sub foo($;@) { 
    my $sql = shift; 
    my @params = @_; 

    print "sql: $sql\n"; 
    print "params: " . join(",", @params); 
} 

sub bar($;@) { 
    foo(@_); 
} 

bar("select * from blah where x = ? and y = ?",2,3); 
print "\n"; 

Tại sao là sản phẩm này:

sql: 3 
params: 

Thay vì điều này?

sql: select * from blah where x = ? and y = ? 
params: 2,3 

Answer 1

Đó là bởi vì khi bạn gọi foo(@_), nguyên mẫu cho foo() buộc tham số đầu tiên (đó là một mảng) được chuyển đổi thành một đại lượng vô hướng (đó là số phần tử trong @_).

Xem câu trả lời cho câu hỏi trước đây của tôi yêu cầu "Why are Perl Function Prototypes Bad"?

FWIW, bạn có thể giữ nguyên mẫu tại chỗ nếu bạn thay đổi bar như sau:

sub bar($;@) { 
    foo(shift, @_); 
} 

Answer 2

loại bỏ ($;@) sau tên hàm của bạn và hoạt động tốt.

Answer 3

Bạn đang hiểu nhầm nguyên mẫu Perl. Loại bỏ chúng và nó sẽ hoạt động tốt.

Xem: Why are Perl 5's function prototypes bad?