[PerlChina] Perl with opensources

[Jeff Peng]

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'