我知道您可以使用
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;
}
