perl中字符串的组合

时间:2010-10-04 18:33:45

标签: perl

我是perl环境的新手....我有n个数组,其中包含n个字符串,我试图得到所有数组的所有字符串的组合,即我喜欢.....

array1 =“array1_String_1,array1_String_2,array1_String_3 ..... array1_String_n”; array2 =“array2_String_1,array2_String_2,array2_String_3 ..... array2_String_n”; array3 =“array3_String_1,array3_String_2,array3_String_3 ..... array3_String_n”;

.
.
.
.
arrayn =“arrayn_String_1,arrayn_String_2,arrayn_String_3 ..... arrayn_String_n;

示例假设如果我采用“array1_String_1”,它必须从array2,array3 ..... arrayn获取组合,但不是从array1获取。

类似地,“array2_String_1”必须从除array2之外的所有数组中获得组合,同样它必须覆盖除存储该字符串的数组之外的所有字符串组合。就像我需要得到一个数组中所有字符串与其他其他数组的组合。

它不应该用于同一个array.ie中的字符串组合 array1元素必须从array2,array3 .... arrayn获得组合,但不能从array1

获得组合

如何获取perl中所有数组的所有字符串的组合....请帮助我...请

2 个答案:

答案 0 :(得分:7)

答案 1 :(得分:2)

我使用Set::CrossProduct模块执行此类操作。