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

Question

有没有办法编写一个 Tcl 正则表达式来验证字符串是否是偶数的十六进制数字？

Answer 1

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

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

请注意，a、c 和 e 也是偶数，并且您需要 -nocase 来匹配 af 和 A​​F。

Answer 2

它需要是正则表达式吗？

proc is_even {n} {expr {($n & 1) == 0}}

if {[is_even 0xdeadbeef]} {puts even} else {puts odd}