(Racket) change encoding

Racket에서 문자열의 인코딩을 변환하는 방법

 

#lang racket
(define msg "Hello, 世界") ; UTF-8 string
(displayln msg)

(define (utf-8->euc-kr str)
  (define-values (str2 a b)
    (bytes-convert (bytes-open-converter "UTF-8" "EUC-KR")
                   (string->bytes/utf-8 str)))
  str2)

(define msg2 (utf-8->euc-kr msg)) ; EUC-KR string
(displayln msg2)
(read-line)

 

 

; 2

(require net/url)
(define (read-url url)
  (port->string (reencode-input-port (get-pure-port (string->url url)) "EUC-KR")))