Tcl Source Code

Artifact e19d265d6d4cbf046d6173a1337ee5108118181d5aa50671d5ff812c61e051dd:

Attachment "test_chinese.tcl" to ticket [9f9c828fde] added by anonymous 2024-11-06 10:01:08. (unpublished)

---

#!/usr/bin/tclsh


puts "Encoding: [encoding system]"
set comment "测试包装"
set comment [encoding convertto utf-8 $comment]


puts [binary encode hex $comment]

puts $comment
set comment [string trim $comment]
puts [binary encode hex $comment]

puts $comment