如何从Perl正则表达式生成所有可能的排列？

Question

我知道您可以使用glob或Algorithm :: Permute从列表中生成所有排列- 但是如何从正则表达式生成所有可能的排列？

我想这样做:

@perms = permute( "/\s[A-Z][0-9][0-9]/" );
sub permute( $regex ) {
    # code - put all permutations of above regex in a list
    return @list;
}

Answer 1

请参见6.5节(PDF)中高阶的Perl.考虑购买印刷书:这是一件艺术品.

CPAN上还有Regexp :: Genex.