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) 함수 호출 부분 소스

set url "$url?c=pgmCompare&custCode=[url-decode $custCode]&device=[url-decode $device]"

 

3) 결과

input : custcode = south%24korean
          device=TP90%2D
output : http://webserver.com?c=pgmCompare&device=TP90_&custcode=south$korean

 

 

4) 참고 - ascii 코드표