in reply to map syntax bug-a-boo?

Curly braces can denote a block or an anonymous hash, and map can take a block or an expression, so map followed by a curly brace is ambiguous. Unfortunately, perl doesn't look forward to the closing brace to see whether it's a block or an anonymous hash, so perl has to guess.

If the opening curly brace is followed by a string and a comma (, or =>), perl guesses it's an anonymous hash. Anything else, and perl guesses it's a block. This heuristic works most of the time, but in some cases perl guesses wrong: 

# a block returning a list of two elements,
# but perl thinks it's an anonymous hash
%hash = map { "$_", 2 } @l;

# an anonymous hash, but perl thinks it's a block
@hash_refs = map { $_, 2 }, @l;

[download]
However, there's not much urgency to fix this problem, because it's so easy to avoid: 
# force parsing as a block
%hash = map { +"$_", 2 } @l;
%hash = map { ; "$_", 2 } @l;
%hash = map { ( "$_", 2) } @l;

# force parsing as an anonymous hash
@hash_refs = map +{ $_, 2 }, @l;

[download]

Replies are listed 'Best First'.
Re: Re: map syntax bug-a-boo?
by shotgunefx (Parson) on Nov 30, 2001 at 17:38 UTC
    Can I ask a silly question? What does the + mean to Perl in these examples. I don't ever recall seeing it ever used in such a way.

    -Lee

    "To be civilized is to deny one's nature."
[reply]

      It's like making explicit the implicit '+' that precedes any non-negative number (think scalar ::= number or string).

      Do you remember, when learning how to format numbers for output (using '%f', '%g', etc.) with printf in C, you had to account for the sign position? It would display as either a hyphen or blank. A blank, however, was analagous to a plus-sign.

      Likewise, on input, non-negative numbers could optionally be expressed with a leading plus-sign. Since scalars (or scalar expressions) may be either numbers or a strings in perl, perl allows this with arbitrary scalar expressions.

      dmm

      
You can give a man a fish and feed him for a day ...
Or, you can teach him to fish and feed him for a lifetime
[reply]
      Unary minus negates its operand, either adding a minus sign, or switching a minus sign to a plus sign or vice versa. Unary plus, on the other hand, returns its operand completely unchanged. Why is this useful? It can come in handy when dealing with ambiguous syntax.

      More examples of unary plus: 

      print (3-1)*2;      # oops!  print (...) interpreted as function ...
print +(3-1)*2;

sub foo { $foo }
$h{foo};            # equivalent to $h{'foo'}
$h{+foo};           # but maybe you meant $h{foo()}

      [download]
      See perlop for more on this curious operator.
[reply]
[d/l]

In Section Seekers of Perl Wisdom