¿Por qué esta declaración de mapa en Perl no se compila?

Question

Esto falla:

my @a = ("a", "b", "c", "d", "e");
my %h = map { "prefix-
 Esto falla: 

Not enough arguments for map at foo.pl line 4, near "} @a"


 con este error: 

my @a = ("a", "b", "c", "d", "e");
my %h = map { "prefix-" . 
 Esto falla: 

my @a = ("a", "b", "c", "d", "e");
my %h = map { "prefix-
 Esto falla: 

Not enough arguments for map at foo.pl line 4, near "} @a"


 con este error: 

<*>

 pero esto funciona: 

<*>

 ¿por qué? 
" => 1 } @a;


 con este error: 

<*>

 pero esto funciona: 

<*>

 ¿por qué? 
 => 1 } @a;


 pero esto funciona: 

<*>

 ¿por qué? 
" => 1 } @a;

con este error:

<*>

pero esto funciona:

<*>

¿por qué?

Answer 1

Porque Perl está adivinando un EXPR (una referencia hash, por ejemplo) en lugar de un BLOQUE. Esto debería funcionar (tenga en cuenta el símbolo '+'):

my @a = ("a", "b", "c", "d", "e");
my %h = map { +"prefix-
 Porque Perl está adivinando un EXPR (una referencia hash, por ejemplo) en lugar de un BLOQUE. Esto debería funcionar (tenga en cuenta el símbolo '+'): 

<*>

 Ver  http://perldoc.perl.org/functions/map.html  . 
" => 1 } @a;

Ver http://perldoc.perl.org/functions/map.html .

Answer 2

Prefiero escribir eso como

my %h = map { ("prefix-
 Prefiero escribir eso como 

<*>

 para mostrar la intención de devolver una lista de 2 elementos. 
" => 1) } @a;

para mostrar la intención de devolver una lista de 2 elementos.

Answer 3

Desde perldoc -f map :

           "{" starts both hash references and blocks, so "map { ..."
           could be either the start of map BLOCK LIST or map EXPR, LIST.
           Because perl doesn’t look ahead for the closing "}" it has to
           take a guess at which its dealing with based what it finds just
           after the "{". Usually it gets it right, but if it doesn’t it
           won’t realize something is wrong until it gets to the "}" and
           encounters the missing (or unexpected) comma. The syntax error
           will be reported close to the "}" but you’ll need to change
           something near the "{" such as using a unary "+" to give perl
           some help:

             %hash = map {  "\L
 Desde  perldoc -f map : 

<*>", 1  } @array  # perl guesses EXPR.  wrong
             %hash = map { +"\L
 Desde  perldoc -f map : 

<*>", 1  } @array  # perl guesses BLOCK. right
             %hash = map { ("\L
 Desde  perldoc -f map : 

<*>", 1) } @array  # this also works
             %hash = map {  lc(
 Desde  perldoc -f map : 

<*>), 1  } @array  # as does this.
             %hash = map +( lc(
 Desde  perldoc -f map : 

<*>), 1 ), @array  # this is EXPR and works!
             %hash = map  ( lc(
 Desde  perldoc -f map : 

<*>), 1 ), @array  # evaluates to (1, @array)

           or to force an anon hash constructor use "+{"

             @hashes = map +{ lc(
 Desde  perldoc -f map : 

<*>), 1 }, @array # EXPR, so needs , at end

           and you get list of anonymous hashes each with only 1 entry.

Answer 4

Además, la otra forma de hacer lo que estás haciendo, inicializando el hash, puedes hacer esto:

my @a = qw( a b c d e );
my %h;
@h{@a} = ();

Eso creará entradas undef para cada una de las cinco teclas. Si desea darles todos los valores verdaderos, hágalo.

@h{@a} = (1) x @a;

También puedes hacerlo explícitamente con un bucle;

@h{
 Además, la otra forma de hacer lo que estás haciendo, inicializando el hash, puedes hacer esto: 

my @a = qw( a b c d e );
my %h;
@h{@a} = ();


 Eso creará entradas undef para cada una de las cinco teclas. Si desea darles todos los valores verdaderos, hágalo. 

@h{@a} = (1) x @a;


 También puedes hacerlo explícitamente con un bucle; 

<*>} = 1 for @a;

Answer 5

Creo que

map { ; "prefix-
 Creo que 

<*>

 es más idiomático, en cuanto a especificar que es un bloque de declaraciones y no una referencia hash. Simplemente lo estás iniciando con una declaración nula. 
" => 1 } @a;

es más idiomático, en cuanto a especificar que es un bloque de declaraciones y no una referencia hash. Simplemente lo estás iniciando con una declaración nula.