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

  1. set a [encoding convertfrom identity \x00]
  2. set b "\0"
  3. puts [string equal $a $b]
  4. string length $b
  5. puts [string equal $a $b]
  6. string length $a
  7. puts [string equal $a $b]
  8.  
  9. puts ------
  10. set a [encoding convertfrom identity \x00]
  11. set b "\0"
  12. puts [string equal $a $b]
  13. string length $a
  14. puts [string equal $a $b]
  15. string length $b
  16. puts [string equal $a $b]