Posted to tcl by evilotto at Thu Apr 12 22:04:37 GMT 2018view pretty

set a [encoding convertfrom identity \x00]
set b "\0"
puts [string equal $a $b]
string length $b
puts [string equal $a $b]
string length $a
puts [string equal $a $b]

puts ------
set a [encoding convertfrom identity \x00]
set b "\0"
puts [string equal $a $b]
string length $a
puts [string equal $a $b]
string length $b
puts [string equal $a $b]