perl中字符串的组合

我是perl环境的新手…我有n个数组，其中有n个字符串，我正在尝试获得所有数组的所有字符串的组合，即我喜欢的

array1=array1_字符串_1、array1_字符串_2、array1_字符串_3。。。。。阵列1_字符串\u n； array2=array2_字符串_1、array2_字符串_2、array2_字符串_3。。。。。阵列2\u字符串\u n； array3=array3_字符串_1、array3_字符串_2、array3_字符串_3。。。。。排列3个字符串； . . . . arrayn=arrayn_String_1，arrayn_String_2，arrayn_String_3。。。。。arrayn_String_n

例如，假设我使用array1_字符串_1，它必须从array2、array3……arrayn获得组合，但不能从array1获得组合

同样，array2_String_1必须从除array2之外的所有数组中获取组合。同样，它必须覆盖除存储该字符串的数组之外的所有字符串组合。像这样，我需要得到一个数组中所有字符串与其他数组的组合

它不应该用于同一数组中的字符串组合 array1元素必须从array2、array3…获取组合。。。。arrayn，但不是array1

---

如何在perl中获得所有数组的所有字符串的组合。。。。请帮帮我。。。请查看和模块。

我用我的模块做这类事情。

非常感谢，先生。。。没有这些模块，这可能吗？你能给我举几个例子吗please@jack：当然，如果没有这些模块，这是可能的。毕竟，这只是代码。我可以问一下，您为什么不想使用模块？您可以查看源代码，了解算法是如何实现的，为您自己的代码提供想法。