2011-09-20から1日間の記事一覧
2chの過去ログで遊ぼうとPerlを使っていじっていたのです。 2chのファイルはShift-JISで書かれているわけですが、文字コードの違いとか面倒なのでPerlのIOレイヤを使ってUTF-8へ変換しようと open my $datfile, "<:encoding(shift-jis)", "000000000.dat"; while(my $line=<$datfile>) { print $dat; } みたいな感じのプログラム</:encoding(shift-jis)",>…