Perl：使用 glob 对具有用户定义长度的数组中的值进行排列

Question

我刚刚读过

如何生成Perl 中的数组？ http://www.perlmonks.org/?node_id=503904 和 https://metacpan.org/module/Algorithm::Permute

我想创建所有与数组中用户定义的值长度的可能组合。

perlmonks 是这样做的：

@a= glob "{a,b,c,d,e,1,2,3,4,5}"x 2;
for(@a){print "$_ "}

这工作正常，但是我想使用 "{a,b,c,d,e,1,2,3,4,5}"我

尝试过这个：

@a= glob @my_array x $userinput ;
for(@a){print "$_ "}

但它不起作用，我该怎么做？或者如何限制 Algorithm::Permute 内的排列长度？

Answer 1

只需从数组生成字符串即可：

my @array = ( 'a' .. 'e', 1 .. 5 );
my $stringified = join ',', @array;
my @a = glob "{$stringified}" x 2;

say 0+@a;             # Prints '100';
say join ', ', @a;    # 'aa, ab, ac, ad ... 53, 54, 55'

---

还可以使用 CPAN 模块。就像List::Gen：

use List::Gen 'cartesian';

my @permutations = cartesian { join '', @_ } map [ $_ ], ( 'a'..'e', 1..5 ) ;