在Perl中,如何获得多套笛卡儿积分?

我想在Perl中进行置换.例如我有三个数组:[“big”,“tiny”,“small”],然后我有[“red”,“yellow”,“green”]以及[“apple”,“pear” “.

如何得到:

["big","red","apple"]
["big","pear"]

..etc..

["small","green","banana"]

我明白这被称为排列.但我不知道该怎么做.我也不知道我可以有多少个数组.可能有三四个,所以我不想做嵌套循环.

解决方法

这实际上不是排列,而是 Cartesian product.见 Math::Cartesian::Product.
#!/usr/bin/perl

use strict; use warnings;

use Math::Cartesian::Product;

cartesian { print "@_\n" }
    ["big","tiny","small"],["red","yellow","green"],["apple","pear","banana"];

输出

C:\Temp> uu
big red apple
big red pear
big red banana
big yellow apple
big yellow pear
big yellow banana
big green apple
big green pear
big green banana
tiny red apple
tiny red pear
tiny red banana
tiny yellow apple
tiny yellow pear
tiny yellow banana
tiny green apple
tiny green pear
tiny green banana
small red apple
small red pear
small red banana
small yellow apple
small yellow pear
small yellow banana
small green apple
small green pear
small green banana

相关文章

忍不住在 PerlChina 邮件列表中盘点了一下 Perl 里的 Web 应用框架(巧的是 PerlBuzz 最近也有一篇相关...
bless有两个参数:对象的引用、类的名称。 类的名称是一个字符串,代表了类的类型信息,这是理解bless的...
gb2312转Utf的方法: use Encode; my $str = "中文"; $str_cnsoftware = encode("utf-8...
  perl 计算硬盘利用率, 以%来查看硬盘资源是否存在IO消耗cpu资源情况; 部份代码参考了iostat源码;...
1 简单变量 Perl 的 Hello World 是怎么写的呢?请看下面的程序: #!/usr/bin/perl print "Hello W...
本文介绍Perl的Perl的简单语法,包括基本输入输出、分支循环控制结构、函数、常用系统调用和文件操作,...