regex - 如何从 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

见 Section 6.5 (PDF)在 Higher Order Perl .考虑购买打印书籍:这是一件艺术品。

还有Regexp::Genex在 CPAN .