Tại sao không có nội suy trong `map` BLOCK?

Question

này ném một lỗi trong Perl v5.20:

use strict; 
use warnings; 
my @a = (2,3,9); 
my %b = map { "number $_" => 2*$_ } @a; 

Lỗi:

syntax error at a.pl line 4, near "} @a" 
Execution of a.pl aborted due to compilation errors. 

này không:

use strict; 
use warnings; 
my @a = (2,3,9); 
my %b = map { "number ".$_ => 2*$_ } @a; 

Tại sao nội suy $_ không được phép trong map BLOCK ?

Answer 1

map có hai cú pháp:

map BLOCK LIST 
map EXPR, LIST 

Perl phải xác định cú pháp bạn đang sử dụng. Vấn đề là cả hai BLOCK và EXPR đều có thể bắt đầu bằng { vì { ... } có thể là hàm tạo băm (ví dụ: my $h = { a => 1, b => 2 };).

Điều đó có nghĩa là ngữ pháp của Perl không rõ ràng. Khi gặp phải sự mơ hồ, hãy perl đoán ý của bạn là gì sau khi xem trước một chút. Trong tình huống của bạn, nó đoán sai. Nó đoán { là khởi đầu của một hàm tạo băm thay vì bắt đầu một khối. Bạn sẽ cần định hướng rõ ràng.

Sau đây là cách thuận tiện để disambiguate khối và nhà thầu băm:

+{ ... } # Not a valid block, so must be a hash constructor. 
{; ... } # Perl looks head, and sees that this must be a block. 

Vì vậy, trong trường hợp của bạn, bạn có thể sử dụng

my %b = map {; "number $_" => 2*$_ } @a; 

---

liên quan: Difference between returning +{} or {} in perl from a function, and return ref or value