正则表达式匹配 Tcl 中的偶数十六进制数字？

Question

是否可以编写一个 Tcl 正则表达式来验证字符串是否为偶数的十六进制数？

Answer 1

这个 tcl 代码将完成这项工作:

if {[regexp -linestop -nocase {^[\da-f]*[02468ace]$} $input]} {
    # Success
} else {
    # Fail
}

注意 a、c 和 e 也是偶数，你需要 -nocase 来匹配 a-f 和 A​​-F。