どう書く？org : 文字コードの変換

original page : http://ja.doukaku.org/107/

1.shift-jisで書かれた文字列をeuc-jpの文字列に変換して返す関数を作ってください。

2.shift-jisで書かれたファイルをeuc-jpに変換してファイル出力するしてください。ただし1で作成した関数を利用せずに。

何気にどう書く？orgに文字コード系の話が出てなかったような気がしたので投稿してみる。

2は言語仕様レベルでさくっといける場合(perlのencodingとか)でお願いします。
読み込みや書き込みのレベルで、文字コードを考えないでスパッといけるのが望ましい。

#4646

original page : http://ja.doukaku.org/comment/4646/

シンプルに。

#1. convert encoding of string from sjis to eucjp
sjis2euc.character <- function(str){
    iconv(str, "sjis", "eucjp")
}

#2. convert encoding of file from sjis to eucjp
sjis2euc.file <- function(infile="sample.sjis", outfile="sample.eucjp"){
    fr <- file(infile, "r", encoding="sjis")
    fw <- file(outfile, "w", encoding="eucjp")
    cat(readLines(fr), sep="\n", file=fw)
    close(fr)
    close(fw)
}