為啥要加->？

sandy_amao

最近看一個(gè)大俠放在網(wǎng)上的源文件，發(fā)現(xiàn)他使用PERL的方式比較高明，我沒看懂。
求各位大神幫忙解釋下：
my @stocklist                 = (
sub { map {"sh$_"} ('600001' .. '602100') }->(),
sub { map {"sz$_"} ('000001' .. '001999') }->()
）

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

大神們請(qǐng)發(fā)個(gè)材料看看或解釋下sub｛｝->()，謝謝

yybmsrs

匿名函數(shù)引用

yybmsrs

回復(fù) 1# sandy_amao


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

sandy_amao

回復(fù) 3# yybmsrs

即第二句的MAP不起作用，不會(huì)出現(xiàn)在數(shù)組中
   

yybmsrs

回復(fù) 4# sandy_amao


    你再仔細(xì)的看看

substr函數(shù)

回復(fù) 4# sandy_amao

為啥第二個(gè)MAP不起作用，謝謝
   

sandy_amao

回復(fù) 6# substr函數(shù)


搞明白了。謝謝



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

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

substr函數(shù)

回復(fù) 7# sandy_amao
謝謝

   

david_95

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

MMMIX

sandy_amao 發(fā)表于 2015-06-24 10:38
大神們請(qǐng)發(fā)個(gè)材料看看或解釋下sub｛｝->()

sub { ... } 返回一個(gè)匿名函數(shù)引用，->() 是調(diào)用該函數(shù)，所以 sub { ... }->() 就相當(dāng)于把 ... 放在函數(shù)中執(zhí)行，為了防止第二個(gè) map 的返回值被當(dāng)作第一個(gè) map 的參數(shù)的一部分。

sub 的介紹見 perldoc -f sub
reference (引用) 的介紹見 perldoc perlref

當(dāng)然，由于 Perl 的 list (array) 會(huì)對(duì) sublist 自動(dòng)做 interpolation (見 perldata)，用 () 把那兩個(gè) map 表達(dá)式括起來也是一樣的效果，而且更簡單些。