初心者で、困っています。（文字化け）

Question

すみません、すごく初歩的なことで困っています。
本を見ながら、下のようなものを書いたのですが、
出力すると、文字化けをしてしまいます。ウィンドウズの環境で、Perlは5.8を使い、読み込みのテキストはUnicodeです。どのようにすれば、文字化けをしないで、読み込めるのでしょうか。

open ( IN , "LBa3_00028.txt" ) or die;
open ( out , ">out.txt" );

while ( $line = <IN>){
print out "$line
";
}
close(out);
close(IN);

sakusaker7 · Accepted Answer

一つ確認したいのですが、

> open ( IN , "LBa3_00028.txt" ) or die;
> open ( out , ">out.txt" );
>
> while ( $line = <IN>){
> print out "$line\n";
> }
> close(out);
> close(IN);
このスクリプトでやろうとしたことは漢字コードの変換とかではないですか?
補足でいただいた文字化けデータですが、ざっと調べたところ読み込み時に入力のデータの形式を
正しく認識していない結果のようです。
文字化けデータをlittle endian と big endian が逆になっているものとして表示させてみると一部わからない部分がありますが

それは、おも (不明) ろいと (不明) (不明) (不明) (不明)った。

のようになりました。
(不明)の部分はよくわからない字になっている部分です。

それと、形式が
>UTF-16LE(Byte order mark 付)
であるなら、コマンドプロンプトで
type ファイル名
としても勝手にUnicode→ShiftJISへの変換をして表示してくれます。

最後に、Unicode(UTF-16LE)→ShiftJISへの変換をするPerlスクリプトのサンプルです。

use strict;
use warnings;

open my $in, '<:encoding(UTF-16)', 'LBa3_00028.txt' or die $!;
open my $out , '>:encoding(cp932)', 'out.txt';

while (my $line = <$in>){
print $out $line;
}

close $out;
close $in;

kuroizell · Answer

use utf8;
binmode STDIN,  ":utf8";
binmode STDOUT, ":utf8";

open (IN, "<:utf8","LBa3_00028.txt") or die;

これでいかがでしょうか？

sakusaker7 · Answer

その文字化けしている出力がある画面をキャプチャーして貼り付けてください。

あと入力がUnicodeということですけど、Unicodeをあらわす方式には
いくつかありますから、もうちょっと詳しい情報があるとよいです。
どんなアプリで作ったのか、とか。

ORUKA1951 · Answer

コマンドプロンプトからの操作だとして、
ツールバーを右クリックして、
　プロパティ→フォントから"MS ゴシック"
それで試してみること。

ついで、
chcp 65001
と入力してから試してみること

それでうまく行ったら、
コマンドプロンプトのアイコン(ショートカットを右クリックして、プロパティを選択し、
%SystemRoot%\system32\cmd.exe /f:on /k "chcp 65001"
としてから、
再度実行してみてください。

初心者で、困っています。（文字化け）

一つ確認したいのですが、

use utf8;

この回答への補足

その文字化けしている出力がある画面をキャプチャーして貼り付けてください。

この回答への補足

コマンドプロンプトからの操作だとして、

この回答への補足

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング