coding/tcl2 tcl/tk 사용하여 decoding 개발하기 ( url-decode ) tcl로 ascii코드를 특수문자로 변환(decoding) 방법을 정리하려고합니다. 코드는 아래와 같습니다. 1) url-decode 소스 proc url-decode { str } { # rewrite "+" back to space # protect \ from quoting another '\' set str [string map [list + { } "\\" "\\\\"] $str] # prepare to process all %-escapes regsub -all -- {%([A-Fa-f0-9][A-Fa-f0-9])} $str {\\u00\1} str # process \u unicode mapped chars return [subst -novar -nocommand $str] } 2) 함수 호.. 2022. 9. 15. tcl/tk 사용하여 encoding 개발하기 ( url-encode ) tcl로 특수문자를 ascii코드로 변환(encoding) 방법을 정리하려고합니다. 코드는 아래와 같습니다. 1) url-encode 소스 proc url-encode {string} { variable map variable alphanumeric a-zA-Z0-9 #알파벳 및 숫자 필터 : 필터 외에 문자는 특수문자로 변환 실시 for {set i 0} {$i $map(\[) ... regsub -all {[][{})\\]\)} $string {\\&} string return [subst -nocommand $string] } 2) 함수 호출 부분 소스 set url "$url?c=pgmCompare&custCode=[url-encode $custCode]&device=[url-encode $dev.. 2022. 9. 6. 이전 1 다음
