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

  1. proc 2Hex { input } { binary encode hex [encoding convertto utf-8 "$input"] }
  2. proc 2Base { input } { encoding convertfrom utf-8 [binary decode hex "$input"] }
  3.  
  4. set problem "%F0%9F%92%99"
  5.  
  6. puts [2Hex $problem]
  7.