utf8→eucメモ

utf8で書かれたテキストファイルを、プログラム中でeucに変換して処理をしたい。
とりあえずメモ。

use Encode

Encodeを使う方法を見つけました。
eucにしたい原文がこれ。

Encodeを使ってみたらこうなりました。

「?」が表示されました。

他の方法で

nkfコマンドを使うと、先ほどのように「?」が出ずにうまくいったので、このコマンドをプログラム中で使いたい。
参考文献 コマンドを参考に、

#!/usr/bin/perl

use strict;
use warnings;

my $file = "a_utf8.txt";

open(FF,"nkf -e $file |");
while(my $line = <FF>){
    print $line;
}
close(FF);

これで「?」は出ずにうまく変換されました。
とりあえずこれでやっていきますが、他にいい方法ありませんか?

今日やったこと

その他

最近22時くらいに眠くなります...