Re: [PerlChina] Perl with opensources

2008/10/6 Jeff Peng <jeffpeng@gmx.net>

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

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

这个一定要顶。。。原来 glob 也能这么用。。。哈哈！

Haskell 里可以这么写：

   [ Data.List.intersperse '-' [u,v,w,x] | u <- "a", v <- "bc", w <- "def", x <- "a"]

GHCi 的输出是

   ["a-b-d-a","a-b-e-a","a-b-f-a","a-c-d-a","a-c-e-a","a-c-f-a"]

在 Python, Erlang 等支持 list comprehension 的语言里都可以写成这样的，呵呵。可惜。。。Perl 里没有 list comprehension。。。glob 在这个例子中极好，只是对于更复杂的情形还不够一般，呵呵。

Thanks!
-agentzh