为什么 map{$_,0}()正确但map{0,$_}()提示map参数不足?

hbmhalley

在 Intermediate Perl 中看到的例子
为什么 map{$_,0}() 正确 但 map{0,$_}() 提示 map参数不足 ?
perldoc map 里好像没提一对多的用法
刚看到 perldoc 里说　map{+0,$_}()可以令perl将{}识别为BLOCK
这是个独立的规定吗?

3ks

zhlong8

编译器的限制，可能产生歧义的地方会选择一个实现者认为正确的，其它的就靠+空格之类的区分了

hbmhalley

回复 2# zhlong8


    那么在这里可以认为是实现者猜的或规定的而非推断的吗？
    实在没看出来 {+0,0} 和 {0,0} 如何能区别 BLOCK 与 EXPR

    在 perlop 里确实提过这个问题，解决方案是加个分号 {;0,0}
    但加个加号有什么用呢？经实验，map{+0,0},() 还会报错

rubyish

hbmhalley 发表于 2013-05-17 05:38
回复 2# zhlong8

1. map { +0,0 }, () 还会报错

复制代码

{ + => perl guesses BLOCK.
},    => so, wrong!
}     => ok!

hbmhalley

rubyish 发表于 2013-05-17 10:38
{ + => perl guesses BLOCK.
},    => so, wrong!
}     => ok!

所以这都是猜的吗？
那要想确定的解释为EXPR或BLOCK，写成map+{0,0}()和map{;0,0}()可以吗？

rubyish

hbmhalley 发表于 2013-05-17 08:47
所以这都是猜的吗？
那要想确定的解释为EXPR或BLOCK，写成map+{0,0}()和map{;0,0}()可以吗？

呵呵问版主{:3_188:}

picbhan

1.           %hash = map {  "\L$_" => 1  } @array  # perl guesses EXPR.  wrong
   
2.                    %hash = map { +"\L$_" => 1  } @array  # perl guesses BLOCK. right
   
3.                    %hash = map { ("\L$_" => 1) } @array  # this also works
   
4.                    %hash = map {  lc($_) => 1  } @array  # as does this.
   
5.                    %hash = map +( lc($_) => 1 ), @array  # this is EXPR and works!
   
6. 
   
7.                    %hash = map  ( lc($_), 1 ),   @array  # evaluates to (1, @array)
   
8. 
   
9.                or to force an anon hash constructor use "+{":
   
10. 
    
11.                   @hashes = map +{ lc($_) => 1 }, @array # EXPR, so needs comma at end
    
12. 
    

复制代码

我的理解是这样的。

map有两种用法：
map BLOCK LIST
map EXPR,LIST

{}里简单的表达式如map {0,0} () perl会倾向于理解为expr，而把{}当做普通的作用域，因此需要‘，’分隔至少两个参数（如map {0,0}, ()），而{+}或者{}里复杂的表达式会理解为BLOCK，但是+{}会被强制当做EXPR理解。只是这里简单和复杂的表达式不是很好定义，可以这样定义，即任何语法操作（如简单变量{0}，{@a}，一元的+，强制返回列表的（），函数操作lc，以及‘；’等等）可以当做是复杂的表达式，其余可以当做是简单表达式（如{0,0}等）。

个人理解，勿喷，勿拍砖！

hbmhalley

回复 7# picbhan


    确实不好定义
    实际上，应该是未定义 ...

    我到 stackoverflow 上问了问，问出来了这么一句话
   

It's interesting though that perl -MO=Deparse -e "map { +0,0 } 1..2" outputs something that you can't use in original script.

picbhan

回复 8# hbmhalley


    perl真是个奇迹。

rubyish

回复 7# picbhan


    good~3Q~你说的很有道理，非常感谢你。{:3_188:} {:3_188:}