#!/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
