为啥要加->？

sandy_amao

最近看一个大侠放在网上的源文件，发现他使用PERL的方式比较高明，我没看懂。
求各位大神帮忙解释下：
my @stocklist                 = (
sub { map {"sh$_"} ('600001' .. '602100') }->(),
sub { map {"sz$_"} ('000001' .. '001999') }->()
）

sub{}->()这种格式我以前没用过，这是什么意思？ 为啥后面要加上  ->()?
试了如果不使用sub｛｝->(),的方式而是使用map {"sh$_"} ('600001' .. '602100') ，map {"sz$_"} ('000001' .. '001999')  则只有前面的一句MAP有效。

大神们请发个材料看看或解释下sub｛｝->()，谢谢

yybmsrs

匿名函数引用

yybmsrs

回复 1# sandy_amao


    只有前面的一句MAP有效   是什么意思

sandy_amao

回复 3# yybmsrs

即第二句的MAP不起作用，不会出现在数组中
   

yybmsrs

回复 4# sandy_amao


    你再仔细的看看

substr函数

回复 4# sandy_amao

为啥第二个MAP不起作用，谢谢
   

sandy_amao

回复 6# substr函数


搞明白了。谢谢



@stocklist = ( map {"sh$_"} ('600001' .. '600003'), map {"sz$_"} ('000001' .. '000002'));
print "@stocklist\n";
结果：
sh600001 sh600002 sh600003 shsz000001 shsz000002

@stocklist = ( (map {"sh$_"} ('600001' .. '600003') ), map {"sz$_"} ('000001' .. '000002'));
print "@stocklist\n";
结果：
sh600001 sh600002 sh600003 sz000001 sz000002

substr函数

回复 7# sandy_amao
谢谢

   

david_95

就是两个list 拼在一起，和下面效果是一样的
my @stocklist = (
               (map {"sh$_"} ('600001' .. '602100')),
               (map {"sz$_"} ('000001' .. '001999'))
）

MMMIX

sandy_amao 发表于 2015-06-24 10:38
大神们请发个材料看看或解释下sub｛｝->()

sub { ... } 返回一个匿名函数引用，->() 是调用该函数，所以 sub { ... }->() 就相当于把 ... 放在函数中执行，为了防止第二个 map 的返回值被当作第一个 map 的参数的一部分。

sub 的介绍见 perldoc -f sub
reference (引用) 的介绍见 perldoc perlref

当然，由于 Perl 的 list (array) 会对 sublist 自动做 interpolation (见 perldata)，用 () 把那两个 map 表达式括起来也是一样的效果，而且更简单些。