Tcl：什么是检查空白字符串的最快方法

Question

检查空白字符串的最快方法是什么？

• [string eq $s ""]
• [string compare $s ""]
• [expr $s == ""]
• [regexp ^$ $s]

Answer 1

我期望之一：

string equal $s "" 

或

expr {$s eq ""} 

将是最快的;这两种情况会产生几乎相同的字节码，所以我不希望区分它们。

Answer 2

proc check {} { 
set s {} 
puts "string equal ->[time {string eq $s ""} 100000]" 
puts "string compare ->[time {string compare $s ""} 100000]" 
puts "regexp   ->[time {regexp ^$ $s} 100000]" 
puts "expr ==  ->[time {expr {$s == ""}} 100000]" 
puts "expr eq  ->[time {expr {$s eq ""}} 100000]" 
} 
check ; # See the behavior in your PC