Re: [PerlChina] Perl with opensources

agentzh 写道:

>
> 记得有一次在 #perl6 有人提到了 Perl 5 中的一个连 Larry Wall 都不知道的神
> 秘而又非常有用的 feature （具体不太记得了，好像是 use v6-alpha 或者是
> pmc 之类的），然后 Larry 随即感叹了一句："Perl is an amazing language."
>

Agree. an amazing language.

例如，对这么一组数据：
{a}-{b,c}-{d,e,f}-{a}
每组里抽一个字母，写出所有组合（按顺序）。
我想了下，自己用一堆的map{}也七七八八能搞定，但Randal用一行就搞定了：

my @result = glob "{a}-{b,c}-{d,e,f}-{a}";

结果是：
'a-b-d-a',
'a-b-e-a',
'a-b-f-a',
'a-c-d-a',
'a-c-e-a',
'a-c-f-a'
_______________________________________________
China-pm mailing list
China-pm@pm.org
http://mail.pm.org/mailman/listinfo/china-pm