我知道您可以使用 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;
}
最佳答案
见 Section 6.5 (PDF)在 Higher Order Perl .考虑购买打印书籍:这是一件艺术品。
还有Regexp::Genex在 CPAN .
关于regex - 如何从 Perl 正则表达式生成所有可能的排列?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/2654947/