Perl5里的gather/take
02 October 2012
九月末的YAPC::Asia上，Larry Wall展示了一下怎么把一个perl5上很标准的排序脚本改造成perl6脚本。主要是条件语句不再用()了，子函数传参方式，对象化操作等等。唯独有个命令是之前未见过的：gather/take。用这个可以减少临时变量的使用。
找了一下，类似命令在perl5中有多个模块对应：Perl6::GatherTake、Perl6::Take、Perl6::Gather、List::Gather和Syntax::Keyword::Gather。
具体的说明，可以看Perl6::Gather的POD说明，比较详细。其他的都是简单给个例子就是了。
use Perl6::Gather;
print gather {
for (@data) {
take if $_ % 2;
take to_num($_) if /(?:one|three|five|nine)\z/;
}
take 1,3,5,7,9 unless gathered;
}
相当于：
my @arrays;
for (@data) {
push @arrays, $_ if $_ % 2;
push @arrays, to_num($_) if /(?:one|three|five|nine)\z/;
}
@arrays = (1,3,5,7,9) unless @arrays;
print @arrays;
省略的就是这个push用的临时@arrays变量。同样也可以是标量，用~gather就可以省略.=了，比gather前面多一个波浪号~。
