Posted to tcl by mookie at Tue Mar 08 14:23:01 GMT 2022view pretty

proc 2Hex { input } { binary encode hex [encoding convertto utf-8 "$input"] }
proc 2Base { input } { encoding convertfrom utf-8 [binary decode hex "$input"] }

set problem "%F0%9F%92%99"

puts [2Hex $problem]