TCL中的求反运算

Question

我还没有找到如何在 TCL 中否定布尔值...我尝试过：

set x true
puts !$x   #prints '!true'
puts ![$x] #prints !
puts [!$x] #prints no event matches "true"
puts !{$x} #prints !{true}
puts {!$x} #prints !$x

Answer 1

逻辑“非”是一个算术运算符，所以你需要expr

% set x true
true
% puts [expr {!$x}]
0
% puts [expr {!!$x}]
1