我知道您可以使用
glob或
Algorithm::Permute从列表中生成所有排列 – 但是如何从正则表达式生成所有可能的排列?
原文链接:https://www.f2er.com/regex/356549.html我想这样做:
@perms = permute( "/\s[A-Z][0-9][0-9]/" ); sub permute( $regex ) { # code - put all permutations of above regex in a list return @list; }