在给定字符串中展开一些通配符并返回字符串列表

Question

是否可以编写一个proc，它将提供一个字符串，并将展开一些通配符并返回字符串列表，如下所示：

proc expand_string { string } {
 ...
}

set a [expand_string {[1-5]a}]

puts $a #a is: 1a 2a 3a 4a 5a

感兴趣的通配符是：

[12..a..z]： 匹配括号中列出的任何字符。

[a-z]： 匹配a和z之间的所有字符。

?(abc)： 匹配abc的零个或一个实例。